Snygga till...

Hallå!

Jag har en textsträng i perl och vill skriva ut de första 8 tecknen av den och sedan ta bort de övriga och ersätta dessa med tre punkter (...) hur göra?

kika på perldoc -f substr eller substr

exempel:

#!/usr/bin/perl -w

use strict;

my $string = "123456789";

print snygga_till( $string );

sub snygga_till {
    my ( $string ) = @_;
    return substr($string, 0, 8) . '...';
}

------------------
Hansen
c.h@ngmedia.com

[Redigerat av Hansen den 05 jul 2001]