Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/env perl

...
  run(command => 'echo -n ', \@in , '| sed -r "s/(foo|bar)/pass/"');

print "Out: " . Dumper(@out);
  2. or download this
    In: $VAR1 = 'Test foo';
$VAR2 = 'Test bar';
...
$VAR3 = [];
$VAR4 = [];
$VAR5 = [];
  3. or download this
    #!/usr/bin/env perl

...
run [echo => -n => join("\n", @in)] , '|', [ sed => -r => "s/(foo|bar)
+/pass/" ], '>', \my $out;

print "Redir: " . Dumper($out);