how to change this code into perl

perlnewbie012215 has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: how to change this code into perl by kcott (Archbishop) on Aug 30, 2015 at 07:04 UTC
G'day perlnewbie012215, You wrote (my emphasis): "`awk '...'`* ... can you guys help me write in perl"* Try: a2p - Awk to Perl translator Update (additional information): As of `v5.22.0`, Perl no longer includes `a2p` (and other utilities) as part of the core distribution. See "perldelta: Utility Changes: find2perl, s2p and a2p removal". This suggests you should now use App::a2p. — Ken	[reply] [d/l] [select]
Re^2: how to change this code into perl by ambrus (Abbot) on Aug 30, 2015 at 19:42 UTC
Wow, nice! I thought this wouldn't work, but it turns out that a2p seems to handle it correctly, even with the FNR variable, and even gives not too ugly code, I guess I just had disappointments with s2p, which doesn't even know about the gsed extension of semicolons working as statement separators.	[reply]
Re: how to change this code into perl by BrowserUk (Patriarch) on Aug 30, 2015 at 06:56 UTC
Something like this (assumes whitespace delimited fields): `perl -anle"next unless @L; print if $L[0] eq $F[0]; @L = @F;" in.txt > + out.txt` [download] With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday' Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. "Science is about questioning the status quo. Questioning authority". I knew I was on the right track :) In the absence of evidence, opinion is indistinguishable from prejudice. I'm with torvalds on this Agile (and TDD) debunked I told'em LLVM was the way to go. But did they listen!	[reply] [d/l]
Re^2: how to change this code into perl by Laurent_R (Canon) on Aug 30, 2015 at 07:55 UTC
I am afraid this: `perl -anle"next unless @L; print if $L[0] eq $F[0]; @L = @F;" in.txt > + out.txt` [download] will never enter into the loop because the `next` statement at the beginning will prevent @L from ever being set. Perhaps this instead: `perl -anwle 'BEGIN{$L = "";} print if $F[0] eq $L; $L = $F[0];' in.tx +t > out.txt` [download] Although the BEGIN block isn't really necessary if the warnings are not activated: `perl -anle 'print if $F[0] eq $L; $L = $F[0];' in.txt > out.txt` [download]	[reply] [d/l] [select]
Re^3: how to change this code into perl by BrowserUk (Patriarch) on Aug 30, 2015 at 08:14 UTC
You're right. I tried to type a pattern I've used before, directly into the browser without having had my morning coffee. It should be: `perl -anle"@L = @F, next if $. == 1; print if $L[0] eq $F[0]; @L = @F; +" in.txt > out.txt` [download] With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday' Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. "Science is about questioning the status quo. Questioning authority". I knew I was on the right track :) In the absence of evidence, opinion is indistinguishable from prejudice. I'm with torvalds on this Agile (and TDD) debunked I told'em LLVM was the way to go. But did they listen!	[reply] [d/l]
Re^4: how to change this code into perl by perlnewbie012215 (Novice) on Aug 30, 2015 at 16:40 UTC
Re^5: how to change this code into perl by BrowserUk (Patriarch) on Aug 30, 2015 at 16:58 UTC
Re^3: how to change this code into perl by perlnewbie012215 (Novice) on Aug 30, 2015 at 16:34 UTC
Thank you Laurent_R!!! the one liner is not printing all the lines, say I have three duplicates its only printing the last two or one duplicate, not all of them. `1 twenty 2 thirty 1 forty 1 fifty` [download] `output 1 twenty 1 forty 1 fifty` [download] is there a way to script it instead of a oneliner. Thank you guys	[reply] [d/l] [select]
Re^4: how to change this code into perl by Laurent_R (Canon) on Aug 30, 2015 at 17:57 UTC
Re^4: how to change this code into perl by Laurent_R (Canon) on Aug 30, 2015 at 17:42 UTC
Re^4: how to change this code into perl by perlnewbie012215 (Novice) on Aug 30, 2015 at 19:07 UTC
Re^5: how to change this code into perl by poj (Abbot) on Aug 30, 2015 at 19:15 UTC
Some notes below your chosen depth have not been shown here
Re^4: how to change this code into perl by perlnewbie012215 (Novice) on Aug 30, 2015 at 17:29 UTC
Re^5: how to change this code into perl by poj (Abbot) on Aug 30, 2015 at 17:44 UTC
Re^4: how to change this code into perl by perlnewbie012215 (Novice) on Aug 30, 2015 at 19:14 UTC
Re^5: how to change this code into perl by Laurent_R (Canon) on Aug 31, 2015 at 10:47 UTC
Re^4: how to change this code into perl by poj (Abbot) on Aug 30, 2015 at 17:23 UTC
Re^4: how to change this code into perl by perlnewbie012215 (Novice) on Aug 30, 2015 at 19:40 UTC
Re^4: how to change this code into perl by perlnewbie012215 (Novice) on Sep 01, 2015 at 22:39 UTC