Perl regular expression

[danny0085]

I have a function that read hotmail inbox and return the confirmation link but sometimes return something like:

https://domain.com/account/confirm_email/JodiImus40/589HC-CG26G-133578 Once you confirm, you will have full access and all future n= otifications will be sent to this email address.

How can I erase Everything after the code 589HC-CG26G-133578

PD: The code is always different Thanks

[JavaFan]

A couple of ways:

$str =~ s/589HC-CG26G-133578.*/589HC-CG26G-133578/;
$str =~ s/589HC-CG26G-133578\K.*//;
$str =~ s/(589HC-CG26G-133578).*/$1/;
($str) = $str =~ /(.*589HC-CG26G-133578)/;
($str) = $str =~ /.*589HC-CG26G-133578/g;
$str = substr($str, 0, index($str, "589HC-CG26G-133578") + length("589
+HC-CG26G-133578"));
substr($str, index($str, "589HC-CG26G-133578") + length("589HC-CG26G-1
+33578"), -1) = "";
$str = join "", (split /(589HC-CG26G-133578)/, $str)[0, 1];

[Marshall]

Appears that something simple will work. I don't think a URL can have a space in it, so capture all non-space stuff at the beginning (maybe allow for some leading spaces?). Whatever the message is at the end, it will be ignored - doesn't really matter what the URL is (or the number at the end). Note it is important to anchor the regex to the start of the string.

#!/usr/bin/perl -w
use strict;

my $line = 'https://domain.com/account/confirm_email/JodiImus40/589HC-
+CG26G-133578 Once you confirm, you will have full access and all futu
+re n= otifications will be sent to this email address.';

#just print the first URL part
my ($url) = $line =~ /^\s*(\S+)/;
print "$url\n" if $url;
#https://domain.com/account/confirm_email/JodiImus40/589HC-CG26G-13357
+8


#edit $line to remove all but the first URL part
$line =~ s/^\s*(\S+).*/$1/;
print $line;
#https://domain.com/account/confirm_email/JodiImus40/589HC-CG26G-13357
+8

[Anonymous Monk]

The expression

'https://domain.com/account/confirm_email/JodiImus40/589HC-CG26G-13357
+8 Once you confirm, you will have full access and all future n= otifi
+cations will be sent to this email address.' =~ s/\K Once.*//r

returns the front part.

This is a trivial question. I suggest you learn the language properly first on your own: http://learn.perl.org/

[Anonymous Monk]

This is a trivial question. I suggest you learn the language properly first on your own: http://learn.perl.org/

Trivial? You use two modern regex features not mentioned in the faq or introductory text, and certainly not mentioned on learn.perl.org