Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re: executing perl command from a perl file

by haukex (Bishop)
on May 24, 2021 at 14:12 UTC ( #11132983=note: print w/replies, xml ) Need Help??


in reply to executing perl command from a perl file

How to execute perl -F, -lanE 'm/module/?say:say qq|.$F[0]($F[0])$F[1]|' < trial1.txt

In your thread To repeat each word in a line, where you were given this code, kcott and AnomalousMonk both gave you some example code that included while loops. The code 'm/module/?say:say qq|.$F[0]($F[0])$F[1]|' is what would go in the body of the loop, plus the code provided by the -F, -lan switches, which you can see by adding -MO=Deparse:

$ perl -MO=Deparse -F, -lanE 'm/module/?say:say qq|.$F[0]($F[0])$F[1]| +' BEGIN { $/ = "\n"; $\ = "\n"; } use feature 'current_sub', 'bitwise', 'evalbytes', 'fc', 'postderef_qq +', 'say', 'state', 'switch', 'unicode_strings', 'unicode_eval'; LINE: while (defined($_ = readline ARGV)) { chomp $_; our @F = split(/,/u, $_, 0); /module/u ? say($_) : say(".$F[0]($F[0])$F[1]"); }

This can be cleaned up to:

use warnings; use strict; use feature 'say'; while ( my $line = <> ) { chomp $line; my @F = split /,/, $line; if ( $line =~ /module/ ) { say $line; } else { say ".$F[0]($F[0])$F[1]"; } }

Though you probably want to replace the <> with a filehandle from an opened file, as has been shown to you.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://11132983]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (2)
As of 2021-09-19 12:30 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?