Language Basics Perl

  1. Home
  2. Perl
  3. Language Basics
  4. An example of the -a option
#!/usr/local/bin/perl 
# This program is called with the -a and -n options. 
while ($F[0] =~ /[^\d.]/) { 
    shift (@F); 
    next if (!defined($F[0])); 
} 
print ("$F[0] $F[1]\n");