Reply to thread

Message

<blockquote data-quote="qtipextra" data-source="post: 4855434" data-attributes="member: 555270">Im dusting off my brain, trying to write a in Perl.What I am doing is taking a log file and trying to return just the filename.A line of the log file looks like this:[CODE]Error: SetupDecompressOrCopyFile() &quot;C:\Documents and Settings\QTIP\Desktop\new\I386\BEEP.SYS&quot; to &quot;C:\UBCD4Win\BartPE\I386\SYSTEM32\DRIVERS\BEEP.SYS&quot; 2: The system cannot find the file specified.[/CODE]This is the code that I have so far. I am trying to use the split function to return the only the filename (the one listed first)[CODE]system (&quot;cls&quot;) ;open( FILE, &#039;log.log&#039; ) or die( &quot;Cannot open: $!&quot; );@log = &amp;lt;FILE&amp;gt; ;close (FILE) or die ( &quot;Cannot open: $!&quot; );foreach (@log) { @split = split (/Error:/, $_, 9999) ; }print @split ;[/CODE]And right now all this outputs is the last line of the log file, which is this:[CODE]Use the [&amp;lt;&amp;lt;] and [&amp;gt;&amp;gt;] buttons to jump to Error/Warning.[/CODE]Anyone good with perl help me out?</blockquote>

[QUOTE="qtipextra, post: 4855434, member: 555270"] Im dusting off my brain, trying to write a in Perl. What I am doing is taking a log file and trying to return just the filename. A line of the log file looks like this: [CODE]Error: SetupDecompressOrCopyFile() "C:\Documents and Settings\QTIP\Desktop\new\I386\BEEP.SYS" to "C:\UBCD4Win\BartPE\I386\SYSTEM32\DRIVERS\BEEP.SYS" 2: The system cannot find the file specified.[/CODE] This is the code that I have so far. I am trying to use the split function to return the only the filename (the one listed first) [CODE]system ("cls") ; open( FILE, 'log.log' ) or die( "Cannot open: $!" ); @log = <FILE> ; close (FILE) or die ( "Cannot open: $!" ); foreach (@log) { @split = split (/Error:/, $_, 9999) ; } print @split ;[/CODE] And right now all this outputs is the last line of the log file, which is this: [CODE]Use the [<<] and [>>] buttons to jump to Error/Warning.[/CODE] Anyone good with perl help me out? [/QUOTE]

Verification