[Malvern] Perl Script Errors

[Colin Newell]

Hi,

You either need to apply the regex to $output or push the line into $_.

You could change that last while loop as follows,

while (<FILE>) {

  if (/thingy/) {

     print;

  }

}

or change the regex to be $output =~ /thingy/

  if ($output =~ /thingy/) {


Colin.

On 7/13/07, Stuart Bird <e_tective at yahoo.co.uk> wrote:
> Thanks Darren
>
> Thats sorted point 1) out (I knew I was overlooking something obvious
> but just couldn't see what).
>
> I now get another error when the script runs:
>
> stu at debian:~/Scripts$ ./skype_2.pl
> Skype Chat Log DeCoder.
> Enter the full path of the file to be
> decoded:/home/stu/Scripts/chat512.txt
> Use of uninitialized value in pattern match (m//) at ./skype_2.pl line
> 17, <FILE> line 1.
>
> Stu
>
> On Fri, 2007-07-13 at 10:36 +0100, Darren Beale wrote:
> > > my ($path, $output)
> >
> > Missing semi colon?
> >
>
>
> _______________________________________________
> Malvern mailing list
> Malvern at mailman.lug.org.uk
> https://mailman.lug.org.uk/mailman/listinfo/malvern
>