Language Basics Perl

  1. Home
  2. Perl
  3. Language Basics
  4. Using shift to process the command-line arguments
#!/usr/local/bin/perl 
while (1) { 
    $currarg = shift; 
    last if (!defined($currarg)); 
    print ("$currarg\n"); 
}