Re: How to evaluate a raw string?

[Mr. Shawn H. Corey]

On Sun, 2008-10-05 at 16:54 +0200, Manfred Lotz wrote:
> my $DRYRUN="--dry-run";
> my $cmd = q(rsync $DRYRUN -avh \
>                   -exclude bla1  \
>                   -exclude bla2  \
>                   src tgtdir
> };
> 
> 
> system($cmd);

my $Dry_Run = '--dry-run';

my $Command_Template = q{rsync %s -avh
                         -exclude bla1  \
                         -exclude bla2  \
                         src tgtdir
};
my $command = sprintf $Command_Template, $Dry_Run;
my $status = system( $command );
die "system( $command ) failed\n" if $status;

Variables in all caps usually constants or special Perl variables.


-- 
Just my 0.00000002 million dollars worth,
  Shawn

Linux is obsolete.
-- Andrew Tanenbaum


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