Re^2: help with REGEXP to remove carriage return and caret from end

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)
[download]

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

Comment on Re^2: help with REGEXP to remove carriage return and caret from end Download Code

Replies are listed 'Best First'.
Re^3: help with REGEXP to remove carriage return and caret from end by Bennco99 (Acolyte) on Jul 25, 2006 at 17:22 UTC
This looks a little better `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("$ARGV7"); chomp ($user); if ($user =~ "/^\........\d\$/\n") { print TEST "` [download]	[reply] [d/l]
Re^4: help with REGEXP to remove carriage return and caret from end by Bennco99 (Acolyte) on Jul 25, 2006 at 19:04 UTC
Thank you ptum. Your recommendation did the trick. Thank you for your help.	[reply]
Re^3: help with REGEXP to remove carriage return and caret from end by Bennco99 (Acolyte) on Jul 25, 2006 at 17:12 UTC
howcome my thread is compacting so much? Is there something I am missing to make it easier to read?	[reply]
Re^4: help with REGEXP to remove carriage return and caret from end by Joost (Canon) on Jul 25, 2006 at 17:15 UTC
read writeup formatting tips as is mentioned in the preview screen. :-) "What should it profit a man, if he should win a flame war, yet lose his cool?"	[reply]
Re^4: help with REGEXP to remove carriage return and caret from end by GrandFather (Saint) on Jul 25, 2006 at 22:12 UTC
You did preview your post didn't you? Did you notice the text on the preview screen that says: If something looked unlike you expected it to you might need to check out Writeup Formatting Tips Even if you didn't notice that the first time through, when you noticed that the node looked like crap you could still go back and edit the node to clean it up using Writeup Formatting Tips as a guide. Note, just in case you missed it, Writeup Formatting Tips is where you find out how to format your node. You can click on that link and you browser will take you right there. If you are using a btabbed browser like FireFox you can control click the link to open it in a new tab - neat huh? DWIM is Perl's answer to Gödel	[reply]