Код

$top = "1.top"; ($num, $a)=split(/./, $top); print "$num\n$a";

ничего не вывводит
как по-другому можно выделить эту еденичку?

Код

$top = "1.top"; $top =~ /^(\d+)\.(.*)$/; print "$1\n$2\n";

???

Цитата(n0xi0uzz @ 21.2.2005, 03:18)

Код $top = "1.top"; ($num, $a)=split(/./, $top); print "$num\n$a"; ничего не вывводит как по-другому можно выделить эту еденичку?

Если тебе нужно тольк число, то делай так:

Код

#!/usr/bin/perl -w use strict; my $top = "120.top"; my $num = ( split(/\./, $top) )[0]; print $num;

Как видиш ошибка была в том, что ты не перекрыл точку в шаблоне, в split. Если перевести твой шаблон на русский язык, то его примерно можно описать так:
Разбить строку по любому символу. Вот он и разбивает её, по любому символу. Если посмотреть в документацию то можно заметить там такую сноску:
Когда строка разбивается с помощью split, то символ разделитель вырезается. В твоём случае символом разделителем является любой символ. Потому в результате мы получаем пустую строку.

Если тебе необходима и строка, которая находится после точки, то можешь заюзать свой код, только поправь шаблон, так же можешь воспользоваться тем, что предоставил тебе opi.

Код

$top = "1.top"; ($num, $a)=split(/\./, $top); print "$num\n$a";

Ошибка была тут: /./ нужно: /\./