Mega Code Archive

 

Categories / Perl / Statement

 

While statement to read input

#!/bin/perl while(<>){     ($name, $phone)=split(/:/);     unless($name eq "barbara"){         $record="$name\t$phone";         print "$record";     } } print "\n$name has moved from this district.\n";