Re: REGEXP removing - il- - -b-f and - il- - - - f

perl people.... there was a lot of threads to my question ...thank you! I
will start from the most recent.

I took and understood the advise of my @a = (); changed to my @a;
Yes I do understand the differing precedence between or and | | . I have a
habit using | |. I do also understand that if you use or you should use (
) as opposed to | | you do not have to use ( ). Any comments?

Line 15 is changed to, I forgot ti take out the + . $fa[$i++] =
(split)[-1] if (m/f01(\d+)/gi );
But I do not understand what the (split)[-1] is saying? please explain.


I reran the code and it seems to be working now.
thanks again, : )
ciao!


#!/usr/bin/perl
1> use strict;
2> use warnings;
3> $ENV{"PATH"} =
qq(/opt/SUNWsamfs/sbin:/usr/bin:/usr/sbin:/usr/local/log);
4> open (V4, "samcmd v4 2>\&1 |" ) || die "unable to open pipe... Broken?
$!";
5> my @fa =();
6> my @ha =();
7> my $i =0;
8> foreach (<V4>) {
9> local $, = "\n";
10> #print +(split)[6,7], $,;
11> s <sg> ();
12> s {\-*} ()g;
13> s {\w+} ()i;
14> print +(split)[5,6,7], if (m/f01(\d+)/gi )
15> #$fa[$i++] = +(split)[5,6,7] if (m/f01(\d+)/gi );
16> #print +(split)[4],$,; #% column
17> }
18> close (V4);
19> print "\n";
20> print "Now printing array element 0\t", $fa[0], "\n";
21> #print "Now printing entire array \t", @fa, "\n";
22> print "Now printing array count \t", $#fa, "\n";



Derek B. Smith
OhioHealth IT
UNIX / TSM / EDM Teams
614-566-4145




"JupiterHost.Net"
<mlists@jupiterho
st.net> To
beginners@xxxxxxxx
04/27/2005 12:03 cc
PM
Subject
Re: REGEXP removing - il- - -b-f
and - il- - - - f










> I was assuming it was a typo/email munge, and that the command he
> pipes actually produces consistent output. That may be a faulty
> assumption on my part. YOu know what they say about assumptions In

Its hard to say Derek doesn't give us much to work with :)

> general, though, when parsing log files (which seems to be waht's
> going on here) if you're assured reasonably consisten data, it's
> better IMNSHO to look for a particular index, because loggers are more
> likely to add occasional extranious info or comments at the end of the
> line than in the middle.

Yeah, I imagine you're correct in your assumption, without actual valid
info its hard to tell :)

Basically if you're gauranteed it index 7 use index 7, otherwise if
you're gauranteed its the last item (and it may be 7 and it may not be(
use the $#array version, if you can't do either redo it all based on
hoew the output is. And if you post to the list about it please send
accurate info.

--
To unsubscribe, e-mail: beginners-unsubscribe@xxxxxxxx
For additional commands, e-mail: beginners-help@xxxxxxxx
<http://learn.perl.org/> <http://learn.perl.org/first-response>




.

Relevant Pages

  • Re: SP2 Windows Messenger
    ... Then run this from your command ... RunDll32 advpack.dll,LaunchINFSection %windir%\INF\msmsgs.inf,BLC.Remove ... "Derek" wrote in message ...
    (microsoft.public.windowsxp.customize)
  • Re: SP2 Windows Messenger
    ... Then run this from your command ... RunDll32 advpack.dll,LaunchINFSection %windir%\INF\msmsgs.inf,BLC.Remove ... "Derek" wrote in message ...
    (microsoft.public.windowsxp.basics)
  • Re: Best Backup software for Ubuntu 8.10
    ... Nolan Cooper wrote: ... still need to figure out what command to use. ... thought already dead) ...
    (Ubuntu)
  • Re: Problem with Archiving .tar
    ... Richard wrote: ... If you won't _try_ it with the command line and tell us what happens, ... aren't helping us help you. ...
    (Ubuntu)