Split using special charater data type scalar

kapila has asked for the wisdom of the Perl Monks concerning the following question:

I actually want to separate & get values in array for below example.1.74,1.75,test/document.txt

But its working fine when i run standalone but in my app some issue which i am not able to figure out. When i hard code $aa='1.74 --> 1.75'; then i can split. But under this code its not splitting, even backslash with (--\>) also tried but no help. I have used ref(\$aa) also its showing SCALAR. Not sure why i am not able to split $aa. can experts help me here.

$text='---------------
1.74 --> 1.75  :test/document.txt;

sub func {
    my ($text) = (@_);
    $text =~ s/[\s|\n]*//g;
    $text =~ s/^[---]+//;
    
        my ($aa,$cd)=split(/:/,$text);
        my ($values,$cf)= split(/-->/,$aa);
        print "$values,$cf\n";
[download]

Comment on Split using special charater data type scalar Download Code

Replies are listed 'Best First'.
Re: Split using special charater data type scalar by aitap (Curate) on Mar 25, 2013 at 13:18 UTC
Please provide a minimal code example which actually can be complied, run and shows your problem. When I fixed syntax errors in your code, it actually ran and splitted your string into pieces: `use warnings; use strict; my $text='--------------- 1.74 --> 1.75 :test/document.txt'; sub func { my ($text) = (@_); $text =~ s/[\s\|\n]//g; $text =~ s/^[---]+//; my ( $aa, $cd ) = split( /:/, $text ); my ( $values, $cf ) = split( /-->/, $aa ); print "$values,$cf\n"; } func($text); __END__ 1.74,1.75` [download] It looks like what you wanted, isn't it? By the way, if you want just to extract these two values from this string, it may be better to match them, not to split: `my $str = '--------------- 1.74 --> 1.75 :test/document.txt'; my ($values,$cf) = $str =~ /([\d.]+)\s-->\s*([\d.]+)/; print "$values,$cf\n"; __END__ 1.74,1.75` [download] What I used is `m/PATTERN/` operator described in perldoc perlop -> Regexp Quote-Like Operators in array context (with Capture groups). Sorry if my advice was wrong.	[reply] [d/l] [select]
Re: Split using special charater data type scalar by jwkrahn (Abbot) on Mar 25, 2013 at 18:42 UTC
`$text =~ s/[\s\|\n]//g;` [download] If we expand the `\s` (whitespace) character class we get: `$text =~ s/[ \t\n\r\f\|\n]//g;` [download] So why are you including the `\n` (newline) character twice? And why are you including the `\|` (vertical bar) character, which has nothing to do with whitespace? And matching zero characters is inefficient. What you probably want is: `$text =~ s/\s+//g;` [download] `$text =~ s/^[---]+//;` [download] A character class ignores multiple identical characters so what you effectively have is: `$text =~ s/^[-]+//;` [download] Which could be written more simply without the character class: `$text =~ s/^-+//;` [download]	[reply] [d/l] [select]
Re: Split using special charater data type scalar by hdb (Monsignor) on Mar 25, 2013 at 13:04 UTC
`$text='--------------- 1.74 --> 1.75 :test/document.txt'; sub func { my ($text) = (@_); $text =~ s/[\s\|\n]*//g; $text =~ s/^[---]+//; my ($aa,$cd)=split(/:/,$text); my ($values,$cf)= split(/-->/,$aa); print "$values,$cf\n"; } func($text);` [download] prints "1.74,1.75". Which it should????	[reply] [d/l]