pradeep reddy am Mittwoch, 25. Oktober 2006 13:52:
> Hello,
>
> This is code I used and it executed in a wanted way.
>
> foreach $outLine(@problemLines) {
> if ($outLine =~ "cleartool: Error: Unable to create label" ) {
> my @values = split('"',$outline);
> my @label = @values[1];
> my $pathName = @values[3];
> my $Version = @values[5];
> cleartool mklabel $RECURSE $REPLACE -version $Version $label $pathName;
> }
>
> Anyways, as per Bolliger's i/p I with try to use $_ instead of with outLine
> varible.
It's not *necessary* to use $_ instead of $outLine, especially not in code
that already does what you want...
But I don't think that above code does what you want (from looking at it). For
example, there is no $label variable defined/assigned.
Put the following standard lines at the top of your script (after the shebang
line):
use strict;
use warnings;
and adjust the code according to the help that will show up :-)
Dani
P.S. Again, *please*, don't top post.
> ----- Original Message ----
> From: D. Bolliger <[EMAIL PROTECTED]>
> To: beginners@perl.org
> Sent: Wednesday, 25 October, 2006 4:36:10 PM
> Subject: Re: Fw: Reg:need to find the particular pattern in a line and
> assign to variables.
>
> pradeep reddy am Mittwoch, 25. Oktober 2006 09:02:
> > John,
> >
> > Thx for your inputs.
> >
> > 1st i/p:
>
> Hello
>
> please don't top post so the discussion can be followed easily.
>
> > Iam afraid, I cant read each line from array problemLines to outLine.
>
> You don't show how you modified your code after John's advice.
>
> foreach (@problemLines) { # for all lines do:
> # handle the current line in $_
> # [no need for the $outLine variable]
> }
>
> > 2nd i/p:
> >
> > =~ /"([^"]+)"/g;------What is the logic in this expression?
> > Can u bit ellaborate.
> >
> > I wanted to read the values in double quotes, from each line.
>
> It does what you want: Extract (by capturing with ()) all (/g) strings
> ([^"]+) between two double quotes (/"<snip>"/).
>
> Look at the documentation (from command line): perldoc perlre
>
> > And , Iam using this logic ---if ($outLine =~ / cleartool: Error: Unable
> > to create label /)
> > , to check for the patten in part of line..Is this correct?
>
> Spaces are relevant. According to your output below, there is no space
> before "cleartool".
>
> To check if it's correct, simply try it and look at the result.
>
> Hope this helps!
>
> Dani
>
> [Original question & JWK's 1st answer:]
>
> > ----- Original Message ----
> > From: John W. Krahn <[EMAIL PROTECTED]>
> > To: Perl Beginners <beginners@perl.org>
> > Sent: Wednesday, 25 October, 2006 12:11:02 PM
> > Subject: Re: Fw: Reg:need to find the particular pattern in a line and
> > assign to variables.
> >
> > pradeep reddy wrote:
> > > Hello all,
> >
> > Hello,
> >
> > > Iam new member to this group and also beginner to PERL.
> > > Here is my question,plz let me know your inpus:
> > > I have a PERL script which gives error report at the end.
> > > Here is the output.
> > >
> > > cleartool: Error: Unable to create label "Pradeep" on
> > > "/vob/rootinclude/paer.c" version "/main/3". cleartool: Error: Unable
> > > to create label "Pradeep" on "/vob/rootinclude/pcme.h" version
> > > "/main/2".
> > >
> > > I need to grab the two elements between the two quotes.
> > > Iam very much beginer to the PERL script.
> > > Iam trying this bit of code, not sure how to go on.
> > >
> > > foreach (@problemLines) {
> > > push $outLine,@problemLines; /"here Iam trying to get the each line
> > > into outLine"/
> >
> > The first argument to push() must be an array so that will not work.
> >
> > > if ($outLine =~ / cleartool: Error: Unable to create label /) {
> > > /"here Iam trying to match the pattern"/ my @values = split(' "
> > > ',$outline); /"Here Iam splitting the outline"/ my $pathName =
> > > @values[3];
> > > my $Version = @values[5];
> > > cleartool mklabel $RECURSE $REPLACE -version $Version $labelName
> > > $pathName; /"This is the comand Iam using"/ print "$_\n";
> > >
> > > }
> >
> > You probably want something like this:
> >
> > my ( $labelName, $pathName, $Version ) = $outline =~ /"([^"]+)"/g;
> >
> >
> >
> > John
> > --
> > Perl isn't a toolbox, but a small machine shop where you can
> > special-order certain sorts of tools at low cost and in short order.
> > -- Larry Wall
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
