I have a data in scalar variable and I want to divide the data into 2 parts based on certain condition. Data is:
50This is my test data;and this line is for testing.
I want this to be stored in 2 separate variables and result should be:
$first = 50
$second = This is my test data;and this line is for testing.
This is what I have tried, but in single expression how to achieve this?
my $first = $1 if ($line =~ /(\d+)This/);
my $second = $2 if ($line =~ /(\d+)(\w+)/)
I think this is slightly simpler than the two solutions you already have.
#!/usr/bin/perl
use strict;
use warnings;
use feature 'say';
my $data = '50This is my test data;and this line is for testing.';
my ($first, $second) = $data =~ /^(\d+)(.*)/ or die "No pattern match";
say "first: $first";
say "second: $second";
Just try this:
my $line = "50This is my test data;and this line is for testing.";
my ($first, $second) = ($line=~m/(\d+)([^\n]*)$/g);
print "$first\t$second\n";
[^\n]* is the same as .* (as long as you're not using /s). And the final $ is unnecessary as regexes are greedy by default.
!\n - ([^\n]*)$Do this:
(\d+)([\s\S]+)
Number is in the first capturing group, remaining sentence in the second.
[\s\S] instead of just .?
. won't consider \n/s on the match operator is a better way to do that.
my $x = .. if ..stackoverflow.com/a/11275324/223226