Re^5: How to pass a variable to a subroutine

Five problems unrelated to your question:

Don't you have warnings turned on!? @FN[1] issues "Scalar value @FN[1] better written as $FN[1]".
Get rid of chomp $FOUND_FILE;. $FOUND_FILE contains a file name, not a filename followed by a newline.
$FN_SPLIT doesn't contain a regexp pattern, so /($FN_SPLIT)/ should be /(\Q$FN_SPLIT\E)/.
The captures in the regexp pattern are a waste of resource. /(\Q$FN_SPLIT\E)/ should be /\Q$FN_SPLIT\E/.
Finally, the regexp pattern doesn't check for equality. For that, you'd want $FOUND_FILE =~ /^\Q$FN_SPLIT\E\z/ or better yet $FOUND_FILE eq $FN_SPLIT.

Try using

use Data::Dumper;
local $Data::Dumper::Useqq = 1;
local $Data::Dumper::Terse = 1;
print("FOUND_FILE: ", Dumper($FOUND_FILE), "\n");
print("FN_SPLIT:   ", Dumper($FN_SPLIT  ), "\n");
[download]

There's probably leading or trailing spaces.

Comment on Re^5: How to pass a variable to a subroutine Select or Download Code

Replies are listed 'Best First'.
Re^6: How to pass a variable to a subroutine by learningperl01 (Beadle) on Dec 06, 2008 at 23:13 UTC
Thanks for the reply/help. After adding the code above and printing the output after the name there is a \r is that a return? How/what is the best way to fix that? Thanks again for all the help. 08ptr00\r `-------------RESULTS-------------- FN_SPLIT: 08ptr00/r FOUND_FILE: : 08r3t00` [download]	[reply] [d/l]
Re^7: How to pass a variable to a subroutine by ikegami (Patriarch) on Dec 07, 2008 at 00:28 UTC
Looks like you have a DOS file on a unix system. Replacing `chomp $FN_SPLIT;` with `$FN_SPLIT =~ s//\r?\n\z/;` will handle both DOS and unix files on a unix system.	[reply] [d/l] [select]
Re^8: How to pass a variable to a subroutine by Anonymous Monk on Dec 07, 2008 at 22:26 UTC
Great, thanks for all the help....it's working now!!	[reply]