"Cutten"

[Matti Maekitalo]

use Mosche;

Von diesem String:
http://oc.activeupdate.trendmicro.com/activeupdate/server.ini
will ich nur "http://oc.activeupdate.trendmicro.com" erfassen. Man kann doch bestimmt sagen, dass er nach dem dritten "/" alles weglassen soll, oder?

Naja, die einfachste Möglichkeit ist es immer noch, den String an / zu splitten (perldoc -f split) und dann die ersten drei Teile mit join (perldoc -f join) wieder zusammenzusetzen.

Wie das geht, steht in SelfHTML. Ohne Test etwa so:

my $string = 'http://oc.activeupdate.trendmicro.com/activeupdate/server.ini';
my @a = split(///, $string);
my $string_neu = join('/', @a[0..2]);

use Tschoe qw(Matti);