in reply to help with REGEXP to remove carriage return and caret from end

^ is a special character in regexes (it usually means match the following, but only at the start of the string). To make it literal, guard it with a backslash: 
if ( $user =~ /(.*)\^/ ) {
  my $user_name = $1;
}

[download]
My only other advice is to concentrate on what you are keeping when you use a match and on what you are replacing when you use a replace (that is when using s///).

Phil

Replies are listed 'Best First'.
Re^2: help with REGEXP to remove carriage return and caret from end
by Bennco99 (Acolyte) on Jul 25, 2006 at 17:10 UTC

    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

[reply]
[d/l]
      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]
        Thank you ptum. Your recommendation did the trick. Thank you for your help.
[reply]
      howcome my thread is compacting so much? Is there something I am missing to make it easier to read?
[reply]
[reply]

        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]

In Section Seekers of Perl Wisdom