Re: [PERL] dele linie ved |

[Lars Clausen <sslug@sslug>]

On Tue, 26 Oct 1999, sslug@sslug wrote:

> On Mon, Oct 25, 1999 at 05:26:42PM +0200, Kim Schulz wrote:
>> ejsa 
>> jeg har følgende kode i et links script jeg roder med:
>>    my $LASTX = 3;
>> open (DB, "<$db_file_name") or &cgierr("unable to open
>> database:$db_file_name.\nReason: $!");
>> my @lines = <DB>;
>> close DB;
>> for ($i=$#lines; $i>=$#lines - $LASTX; $i--) {
>>   chomp $lines[$i];
>>   @tmp = &split_decode ($lines[$i]);
>>   %tmp = &array_to_hash (0, @tmp);
>>   $lastlink .= &site_html_link (%tmp);
>> }
>> 
>> Mit problem er at jeg ikke lige kan komme på en måde hvorpå jeg kan
>> nøjes med at tage de første to punkter fra hver linie (alle punkter er
>> delt med "|")
>> 
> 
>@tmp = split(/\|/, $lines[$i])
> 
> Delar upp $lines i en vektor, fälten separerade med |, och tar bort | ur
> fälten.

Endnu pænere:

($punkt1, $punkt2) = split(/\|/, $lines[$i]);

Putter de to første punkter ind i punkt1 og punkt2, og smider resten væk.

-Lars

-- 
Lars R. Clausen (http://shasta.cs.uiuc.edu/~lrclause)   Hårdgrim of Westfield
"I do not agree with a word that you say, but I will defend to the death your
right to say it."                                             -- Voltaire (?)