Re: Paths, Spaces, Getopt::Long

[Chas Owens]

On 6/3/07, Chas Owens <[EMAIL PROTECTED]> wrote:
snip

my $tidy = "/usr/bin/tidy";
my @tidy_args = qw(--foo --bar -- example);
my $path = get_path();
my $file = $path . get_file();

system($tidy, @tidy_args, $file);

Opps, forgot the error checking.

system($tidy, @tidy_args, $file)
   or die qq("$tidy @tidy_args $file" failed: $?";

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/