http://qs321.pair.com?node_id=340130


in reply to Modify code help

This works fine for me.
while ( <DATA> ) { my $dpdrivloc = "MSL6000 Trinity"; if ( /\Q$dpdrivloc\E:\s*(\d+)/ ) { print "$1\n"; } } __DATA__ Label Location Pool Name Protection [NFK100L2] [MSL6000 Trinity: 1] MSL6000 01/19/2004 [NFK101L2] [MSL6000 Trinity: 5] MSL6000 01/19/2004
What is convert.bat doing? Because the perl looks to work fine.

- Tom