Language Basics Perl

  1. Home
  2. Perl
  3. Language Basics
  4. Build the ARGV array with qw function
#!/usr/bin/perl -w
use strict;
@ARGV = qw(file1.dat file2.dat file3.dat);
while (<>) {
    print "text read: $_";
}