Re: Copy terminal lines-unix

See the backticks:

my $output = `ls`;
[download]

You cannot read terminal output after the fact from Perl, but you can paste the terminal output into Perl:

while( <> ) {
    chomp;
    print "You pasted: [$_]\n";
};
[download]

Comment on Re: Copy terminal lines-unix Select or Download Code

Replies are listed 'Best First'.
Re^2: Copy terminal lines-unix by baxy77bax (Deacon) on Oct 06, 2015 at 09:39 UTC
agree. but what about the cases when I need to pass and execute something like this: `./SaveCMD "ls \| perl -lne 'print $_ if /-/'" --SaveCMD-- #!/usr/bin/perl use strict; open(OUT, ">>", "cmd-out") \|\| die "$!"; print OUT "cmd: $ARGV[0] \n"; my $cmd = $ARGV[0]; print STDERR $cmd; my $out = qx($cmd); print OUT $out; close OUT;` [download] in such situations I am not free to use `$_` variable. any way to bypass this??	[reply] [d/l] [select]
Re^3: Copy terminal lines-unix by Corion (Patriarch) on Oct 06, 2015 at 09:45 UTC
What makes you think that you are not free to use `$_` in this situation? Maybe now it's a good time to learn about Perl, its syntax, especially about loops?	[reply] [d/l]
Re^3: Copy terminal lines-unix by choroba (Cardinal) on Oct 06, 2015 at 12:13 UTC
If you need to escape the dollar sign to prevent its expansion by the shell, use a backslash: `./SaveCMD "ls \| perl -lne 'print \$_ if /-/'"` [download] لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ	[reply] [d/l]