Nevermind I am completely on crack, ignore my entire last email, your putting
a scalar in a for loop threw me off. You are in fact binding against $_. I
will now retreat under a rock of embarassment and seriously re-consider my
association with the entire Perl language. What a crappy day...
>===== Original Message From Mark Goland <[EMAIL PROTECTED]> =====
>Ok guys, SomeHow I got lost in this mess, and I think I might need more
>help. The values inside my switch are not properly calculated , and when I
>try to round down it go's into the default statment. Can you please look
>what I cam up with again and see where I am going wrong.
>
>#!/usr/bin/perl -w
>use POSIX;
>$CYLLENGTH=16065;
>
>open (PW_FH,"| fdisk -f -") || die " cant popn fdisk ";
>sleep(1);
>
>print "enter partition : "; chomp ( $P_num=<> );
>print "enter partition type [165 BSD] : "; chomp ( $P_type=<> );
>print "enter partition start cylender : "; chomp ( $P_start=<> );
>print "enter partition length [cylenders]: "; chomp ( $P_length=<> );
>
>
>while( ( $Remainder = ($P_length%$CYLLENGTH) ) != 0 ){
> print "\asize you gave is not multiple of cylenders\n";
> print "round (U)p (D)own (R)enter ?"; chomp ($Ans=<>);
>
>for ($Ans){
> /u/i && do { $P_length -= $Remainder += $CYLLENGTH } && last;
> /d/i && do{ $P_lenght -= $Remainder } && last;
>
>#default
> print "enter partition length : " ; chomp ($P_lenght=<>)
>
>; last;
>
>
>
>
>}
>
>
>}
>print " $P_length is the value \n";
>_exit 0; # take this out once fixed
>
>print PW_FH "p $P_num $P_type $P_start $P_lenght";
>
>close PW_FH;
>
>_exit 0;
>
>Thanx in advance,
> Mark
>----- Original Message -----
>From: "Hanson, Rob" <[EMAIL PROTECTED]>
>To: "'Mark Goland'" <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>
>Sent: Friday, October 11, 2002 3:34 PM
>Subject: RE: switch
>
>
>> Ooops, I think I misunderstood the question in my last post. That will
>> teach me to read the whole post first!
>>
>> Anyway...
>>
>> What does that $where in your code come from? It is in the for()
>statement.
>> Shouldn't it be $Ans?
>>
>> I would do it more like this...
>>
>> print "Enter the command: ";
>> chomp(my $input = <STDIN>);
>>
>> for ($input) {
>> /u/i and print "u\n" and last;
>> /d/i and print "d\n" and last;
>>
>> # default
>> print "default\n";
>> }
>>
>> ....You need the "and last", otherwise it will always execute the default.
>>
>> Rob
>>
>>
>> -----Original Message-----
>> From: Mark Goland [mailto:[EMAIL PROTECTED]]
>> Sent: Friday, October 11, 2002 3:20 PM
>> To: [EMAIL PROTECTED]
>> Subject: switch
>>
>>
>> Hi guys,
>>
>> I am trying to implement a switch statment in perl. I have tryed doing it
>2
>> way's. For some reason my comparison statments are not working can some
>one
>> please look over my code and see if they can point me on the right track
>??
>>
>> Thanx in advance,
>> Mark
>>
>> Solution 1:
>>
>> while( ( $Remainder = ($P_lenght%16065) ) != 0 )
>> {
>> print "\a size you gave is not multiple of cylenders\n";
>> print "round (U)p (D)own (R)enter ?"; $Ans=<>;
>> # chomp ($Ans);
>> print $Ans;
>> for ($where){
>> /u/ && do{print "u\n";};
>> /d/ && do{print "d\n";};
>> # default
>> print "enter partition length : ";
>> chomp ( $P_lenght=<> );
>>
>>
>> }
>> }
>> _exit 0;
>>
>> solution 2:
>>
>> while( ( $Remainder = ($P_lenght%16065) ) != 0 )
>> {
>> print "\a size you gave is not multiple of cylenders\n";
>> print "round (U)p (D)own (R)enter ?"; $Ans=<>;
>> # chomp ($Ans);
>> print $Ans;
>> if( $Ans =~ /u/i ){
>> $P_lenght = ($P_lenght - $Remainder+$CYLLENGTH);
>> }
>> elsif( $Ans =~ /d/i){
>> $P_lenght-=$Remainder;
>> }
>> # default
>> else{
>> print "enter partition length : "; chomp ( $P_lenght=<> );
>> }
>>
>>
>> }
>>
>> _exit 0;
>>
>>
>>
>>
>> --
>> To unsubscribe, e-mail: [EMAIL PROTECTED]
>> For additional commands, e-mail: [EMAIL PROTECTED]
>>
>> --
>> To unsubscribe, e-mail: [EMAIL PROTECTED]
>> For additional commands, e-mail: [EMAIL PROTECTED]
>>
>>
>
>
>
>--
>To unsubscribe, e-mail: [EMAIL PROTECTED]
>For additional commands, e-mail: [EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
