For whatever reason when I paste the example into the thread it doesn't display right..
But the results that I am getting is the user name "SmithB" then on the end of that it adds a square or carriage return, then adds a carrot "^" on the end of that.
I need to extract the username (without the carriage return and ^) and write that to a text file.
Here the whole script... I am creating a list of the parameters being passed. Then I need to take ARGV 7 and extract the user name minus the carriage return and /^
open (TEST,">c:/temp/argtest6.txt") or die "Failed to open argtest.txt + file"; $count = 0; foreach $element (@ARGV) { print TEST $count,$element; $count += 1; } $user = lc("$ARGV[7]"); chomp ($user); if ($user =~ "/^\........\d\$/\n") { print TEST ".. You have a match for $user /\n"; } else { print TEST "... NO match for $user /\n"; } print TEST $user; close(TEST)
Sorry guys, I am new at this, so please bear with me.... And thanks for the help
Code tags and general formatting added by GrandFather
In reply to Re^2: help with REGEXP to remove carriage return and caret from end
by Bennco99
in thread help with REGEXP to remove carriage return and caret from end
by Bennco99
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |