I may have got this completely wrong but it looks to me like you want to match lines in the file to some previously assigned variables. If so, perhaps this will clarify
poj#!perl use strict; use warnings; my $pattern = 'W'; my $match = 'lipid'; my $cyclo = 'CC'; my $group = 'GGG'; my $results = 'c:/temp/'; my $filepath = 'Test/'; my $infile = 'ABC.txt'; chdir "$results$filepath" or die "cannot chdir to $results$filepath ! $!"; if (-e $infile) { open my $test, '<', $infile or die "Can't open $infile: $!"; while (my $line = <$test>){ my @f = split ' ', $line; if ( ($f[0] eq $pattern.$match) && ($f[1] eq $cyclo) && ($f[2] eq $group) ){ print $line; } } } else { print "$infile does not exist"; }
In reply to Re^4: split file and put contents in variables?
by poj
in thread split file and put contents in variables?
by angela2
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |