Re: File to @array then parse like a file


Perl-Sensitive Sunglasses
	PerlMonks

Re: File to @array then parse like a file

by blaze (Friar)

on Mar 14, 2003 at 23:39 UTC ( [id://243208]=note: print w/replies, xml )

Need Help??

in reply to File to @array then parse like a file

You could do something like this:

#!/usr/bin/perl -w
use strict;

my $file = 'c:\\path\\file.name';

open FILE, "$file" or die "Couldnt open file:$!\n";
my @info = <FILE>;
close FILE;
my ($server,$client);

for(@info){
    chomp;
    if(/Job server:+[\W]+(.*)/){
        $server = $1;
    }
    if(/Job name:+[\W]+(.*)/){
        $client = $1;
        $client =~ s/-.*//;
        print "$client is on $server\n";
    }
}
[download]

-Robert