String Splitting

[Bugorr]

Hello. I have a very simple questions, which could be done with simpliest regex, but I'm new to it and can not get my way around it yet. Anyhow the questions is, I have a line with 2 strings separated by a \t. What can I do to assign first string to the first variable and second string to the second variable. Thank you

[Transient]

You already have the answer in your thread title =)

split

P.S. If you want more details, possibly post what you have tried... it goes a long way to show effort.

[ikegami]

($var1, $var2) = split("\t", $string);

or if you haven't declared the two variables yet:

my ($var1, $var2) = split("\t", $string);

[friedo]

You can use the aptly named split.

my ($var1, $var2) = split /\t/, "string with\ttabs";

[GrandFather]

or if you really want to do it with a regex:

my ($str1, $str2) = $line =~ /^(.*?)\t(.*)/;

Note that this splits at the first tab. Remove the ? and it will split at the last tab. Note also that the solutions using split actually generate a list with one entry per tab plus one. The regex can only generate a list with two entries. See perlretut.

[Transient]

or equivalently (to the one listed above, with the '?'):

 my ( $str1, $str2 ) = split(/\t/, $line, 2);

(so much for showing effort ;) (update - meant this in general, not directed at GrandFather!))

[GrandFather]

By the time I replied there was a decided lack of evidence of effort, but maybe Bugorr will take the hint for next time? :)

Bugorr would do well to read How do I post a question effectively?

[sk]

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

my $str = "first\tsecond";
my ($first,$second) = ();

($first,$second) = split (/\t/,$str);

print ("First = $first, Second = $second\n");
__END__
First = first, Second = second

Please check perldoc -f split

-SK

[pbeckingham]

If there are only two lines, there is no need to split.

  my ($one, $two) = <$input>;

In list context, the <> operator returns a list.

Update: I completely misunderstood the question.