Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Re^2: chomp question

by suno (Acolyte)
on Aug 08, 2012 at 09:56 UTC ( #986197=note: print w/ replies, xml ) Need Help??


in reply to Re: chomp question
in thread chomp question

hi, thanks you so much for the reply.. i am sorry that my question is not clear to all... my actual objective is as follows: say my input is :

MVC DOWO(8),WCPA CLI WCPA+2,C'.' BNE UPCC22
the required output is something like :
MVC DOWO(8),WCPA CLI WCPA+2,C'.' BNE UPCC22
hope this will make my question clear...


Comment on Re^2: chomp question
Select or Download Code
Re^3: chomp question
by suno (Acolyte) on Aug 08, 2012 at 09:58 UTC

    Here.. MVC,CLI,BNE are keywords... wherever CLI comes, i need to append the next line along with the current line..

      while (<>) { chomp if /^CLI\b/; print; } # or without all those default variables while (my $line = <$FILEHANDLE>) { chomp($line) if $line =~ /^CLI\b/; print $line; }

      Probably not exactly what you had in mind, right? In either case you either want to check whether the line starts with "CLI" and chomp() it if it does or remember the last line (or whether it started with CLI) and append the text you read instead of adding a new element into the array.

      my @lines; my $last_line_was_CLI = 0; while (<>) { chomp; if ($last_line_was_CLI) { $lines[-1] .= $_; $last_line_was_CLI = 0; } elsif (/^CLI\b/) { $last_line_was_CLI = 1; push @lines, $_; } else { push @lines, $_; } }

      Jenda
      Enoch was right!
      Enjoy the last years of Rome.

      Perhaps this will do what you want to do?
      use strict; use warnings; while (my $line = <DATA>) { if ($line =~ /CLI/) { chomp $line; while (my $line2 = <DATA>) { next unless $line2 =~ /\S/; # ignore blank lines $line .= " $line2"; last; } } print $line; } __END__ MVC DOWO(8),WCPA CLI WCPA+2,C'.' BNE UPCC22
      which prints
      bash-3.2$ perl suno.pl MVC DOWO(8),WCPA CLI WCPA+2,C'.' BNE UPCC22 bash-3.2$

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (10)
As of 2014-10-20 21:38 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (92 votes), past polls