Split string from file in Perl

Question

So, i have a file to read like this

Some.Text~~~Some big text with spaces and numbers and something~~~Some.Text2~~~Again some big test, etc~~~Text~~~Big text~~~And so on

What I want is if $x matches with Some.Text for example, how can I get a variable with "Some big text with spaces and numbers and something" or if it matches with "Some.Text2" to get "Again some big test, etc".

open FILE, "<cats.txt" or die $!;
while (<FILE>) {
chomp;
my @values = split('~~~', $_);
  foreach my $val (@values) {
    print "$val\n" if ($val eq $x)
  }

  exit 0;
}
close FILE;

And from now on I don't know what to do. I just managed to print "Some.text" if it matches with my variable.

RobEarl · Accepted Answer · 2013-10-25 09:13:08Z

2

splice can be used to remove elements from @values in pairs:

while(my ($matcher, $printer) = splice(@values, 0, 2)) {
    print $printer if $matcher eq $x;
}

Alternatively, if you need to leave @values intact you can use a c style loop:

for (my $i=0; $i<@values; $i+=2) {
    print $values[$i+1] if $values[$i] eq $x;
}

edited Oct 25, 2013 at 9:13

answered Oct 25, 2013 at 9:02

RobEarl

7,9226 gold badges38 silver badges52 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

TLP · Accepted Answer · 2013-10-25 09:58:48Z

1

Your best option is perhaps not to split, but to use a regex, like this:

use strict;
use warnings;
use feature 'say';

while (<DATA>) {
    while (/Some.Text2?~~~(.+?)~~~/g) {
        say $1;
    }
}

__DATA__
Some.Text~~~Some big text with spaces and numbers and something~~~Some.Text2~~~Again some big test, etc~~~Text~~~Big text~~~And so on

Output:

Some big text with spaces and numbers and something
Again some big test, etc

answered Oct 25, 2013 at 9:58

TLP

68.2k10 gold badges97 silver badges156 bronze badges

Collectives™ on Stack Overflow

Split string from file in Perl

2 Answers 2

Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related