String Splitting

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

Replies are listed 'Best First'.
Re: String Splitting by Transient (Hermit) on Aug 18, 2005 at 18:07 UTC
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.	[reply]
Re: String Splitting by ikegami (Patriarch) on Aug 18, 2005 at 18:15 UTC
`($var1, $var2) = split("\t", $string);` [download] or if you haven't declared the two variables yet: `my ($var1, $var2) = split("\t", $string);` [download]	[reply] [d/l] [select]
Re: String Splitting by friedo (Prior) on Aug 18, 2005 at 18:15 UTC
You can use the aptly named `split`. `my ($var1, $var2) = split /\t/, "string with\ttabs";` [download]	[reply] [d/l] [select]
Re: String Splitting by GrandFather (Saint) on Aug 18, 2005 at 18:51 UTC
or if you really want to do it with a regex: `my ($str1, $str2) = $line =~ /^(.?)\t(.)/;` [download] 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. Perl is Huffman encoded by design.	[reply] [d/l]
Re^2: String Splitting by Transient (Hermit) on Aug 18, 2005 at 18:53 UTC
or equivalently (to the one listed above, with the '?'): `my ( $str1, $str2 ) = split(/\t/, $line, 2);` [download] (so much for showing effort ;) (update - meant this in general, not directed at GrandFather!))	[reply] [d/l]
Re^3: String Splitting by GrandFather (Saint) on Aug 18, 2005 at 19:03 UTC
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? Perl is Huffman encoded by design.	[reply]
Re: String Splitting by sk (Curate) on Aug 18, 2005 at 18:17 UTC
`#!/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` [download] Please check `perldoc -f split` -SK	[reply] [d/l] [select]
Re: String Splitting by pbeckingham (Parson) on Aug 18, 2005 at 19:03 UTC
If there are only two lines, there is no need to split. `my ($one, $two) = <$input>;` [download] In list context, the `<>` operator returns a list. Update: I completely misunderstood the question. pbeckingham - typist, perishable vertebrate.	[reply] [d/l] [select]