Thanks Paul, Beau,
That's got it. 8-) I knew it had to be something simple. 8-)
David.
Paul Johnson wrote:
David Buddrige said:
#!/usr/bin/perl
use strict;
use warnings;
@c_files;
@h_files;
foreach $arg ( @ARGV )
{
if ( $arg =~ /\w\.[Cc]/ )
{
push @c_files ($arg);
push @c_files, $arg;
}
if ( $arg =~ /\w\.[hH]/ )
{
push @h_files ($arg);
}
}
foreach $c_file ( @c_filse )
c_files
{
print "C file : $c_file \n";
}
foreach $h_file ( @h_files )
{
print "H file : $h_file \n";
}
The arguments to push are separated by commas.
Using strict and warnings will help you ensure your program is correct,
and in your case will require minor changes to the program.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]