"Cutten"

[Marcel Fuhrmann]

Hallo!

Habe von Perl sehr wenig Ahnung und suche eine Methode wie ich folgendes Problem lösen kann:

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?

Gruß
Marcel

[Erwin]

Hallo!

Habe von Perl sehr wenig Ahnung und suche eine Methode wie ich folgendes Problem lösen kann:

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?

hihi, "man" kann. Aber es wird dir nichts nützen... ne, Spass beiseite, auch wegen der "man" Form ;-)

du hast
$s = 'http://oc.activeupdate.trendmicro.com/activeupdate/server.ini';

try this:
$s =~ /^http://(.*?)/(.*?)$/;

print "http://$1 \n"; # erste Klammer in $1

Gruss, Rolf

[Marcel]

herzlichen Dank!!!!

[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);