I have this code and having matched the input, I want it split into two separate variables. The input is in the form of a range (e.g: 1-10) and is written in perl.
Here is the code: [ if($pr=~m/^([0-9]+)\s*[-]\s*([0-9]+)$/){ print "Match"; } else { print "Not a match"; } ]
Thanks.
To rephrase properly, I have this code and having matched the input, I want it split into two separate variables. The input is in the form of a range (e.g: 1-10) and is written in perl.
Here is the code:
sub regX()
{
print "Enter port range (e.g 1-2): "; chomp($pr=<STDIN>);
if($pr=~m/^([0-9]+)\s*[-]\s*([0-9]+)$/){ print "Match"; }
else { print "Not a match"; }
}
Thanks.
Got it fellas. Thanks.
Hi all,
This is a perl script. I have this input that I intend to split into multiple variables, however the variables $1 and $2 work for a limited number of inputs. Please run code and see first then provide an advice. Thanks for your suggestions.
sub regX()
{
print "Enter numbers with ',' as delinmeter (e.g.: 1,2,3,...): ";
chomp($pr=<STDIN>);
if($pr=~m/^(([0-9]+)\s*[,]\s*([0-9]+)*)+$/)
{
#print multiple variables up to n inputs
}
else { print "Unmatched entry"; }
}
Why don't you just split them on the "," into an array?
$count=(@array)=split(/\,/,$pr);Your regX is not going to work the way that you wish for it to. When I ran the code I input "1,2,3" and got "1 2,3" in $1.
Why don't you just split them on the "," into an array?
$count=(@array)=split(/\,/,$pr);Your regX is not going to work the way that you wish for it to. When I ran the code I input "1,2,3" and got "1 2,3" in $1.
True statement mitchems...I'll try that. Thanks for the quick response.
We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.