#! /usr/bin/perl

use Getopt::Std;

use warnings;

use strict;

sub read_from_sh($) {

my $file = shift;

my @files = ();

open F, $file or die "Could not open $file: $!";

while (<F>) {

next if /^\s*$/;

push @files, $_;

}

close F or die "Could not close $file: $!";

return @files;

}

my @files;

my %opts = ();

getopts("s:", \%opts);

if ($opts{'s'}) {

@files = read_from_sh($opts{'s'});

}else {

@files = @ARGV;

}

for my $file (@files) {

print "file: $file\n";

}

 

export.pl同级目录下： chage.csv chage2.csv txt.txt t.txt

>perl export.pl chage.csv chage2.csv txt.txt t.txt

 

OUTPUT:

file:export.pl

file:chage.csv

chage2.csv

file:txt.txt

file:t.txt