Statement Perl

  1. Home
  2. Perl
  3. Statement
  4. 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";