Re: [Nolug] PERL Question

Wimprine, Thomas wrote:
> Let me clarify something if the $list[$num] does not contain $ARGV[$num]
> then delete;

--- start file.pl ---
#!/usr/bin/perl -w

my @list = qw(one two three);

my %list;

$list{$_} = 1
   for @list;

@list = grep {$list{$_}} @ARGV;
print join(", ", @list), "\n";
--- end file.pl ---

Sample runs:
$ perl file.pl one
one
$ perl file.pl one two four
one two
$ perl file.pl

$

Is that what you wanted?

Mark
___________________
Nolug mailing list
nolug@nolug.org
Received on 10/14/04