So I have tried your suggestion and I am now getting this error
Can't use string ("find . -name *.dpt | xargs grep "...) as a symbol ref while "strict refs" in use at ./perlref.pl line 14, <> line 1.Here is my code as it stands can you see anything the pops out at you
The file it should pick up is test.dpt#!/usr/bin/perl use strict; my $REG; my @REGARRAY; my $INI_DIR='/shares/MILKLINK/PPdir'; print "Enter Reg Number: "; chomp ($REG = <>); my $FILE = ('find %s *.dpt | xargs grep -l %s',$INI_DIR,$REG); open $FILE, '<', my $DPT; chomp(@REGARRAY, $FILE); close $FILE; foreach my $ITEM (@REGARRAY) { system("/shares/optiload/prog/indref.sh $ITEM"); }
PX12RUJ PX12RUR PX12RUV #PX12RUU PX12WLJ #PX12WLL PX12WLK PX12RUW WN14YGV WN14YGY
In reply to Re^2: Grep file out of directory and read into array
by Jalcock501
in thread Grep file out of directory and read into array
by Jalcock501
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |