Re: [PERL] dele linie ved |

[Bjorn Ardo <sslug@sslug>]

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.

-- 
  -----               MLOT: Build a system that even a
  Bjorn                     fool can use and only the
  -----                     fool will use it.