Архив форумов ЦИТФорума

[IddoL]

Такой вопрос:
есть массив @data вида:
=======слово=======
Слово2 (пробел tab`ом) Слово3

выбираем из него вторую строку:
$stroka = $data[2];

тоесть получается $stroka содержит:
Слово2 (пробел tab`ом) Слово3

как выбрать в $stroka СЛОВО3???? и присвоить его переменной $slovo???

[Scaramouch]

[IddoL]

ничего не получилось...
переменная $stroka содержит 4294967295.... что это?
все остальные переменные($1; $slovo) пустые

[Scaramouch]

Что у тебя содержит изначальная строка - $data[2]????
_________________
Ноги - это две лишние руки.

[IddoL]

Основной шлюз (пробел табом) 192.168.1.1
надо взять в переменную IP адрес

[Scaramouch]

[FUKS]

Только грамотнее будет так:

[Гость]

код:

$file_path="route.print";
open FILE, "$file_path";

@data=<FILE>;
close FILE;

$stroka =~m/^.+\s(\S+)$/;
$slovo = $1;

print $slovo;

файл route.print содержит:
---------- C:\ROUTE\ROUTE.PRINT1
Ћб­®ў­®© и«о§: 192.168.8.66





ни в каком варианте на экран ничего не выходит! пусто.... незнаю что делать...

[Гость]

немного не так написал...
код:


$file_path="route.print";

open FILE, "$file_path";

@data=<FILE>;
close FILE;
$slovo=$data[2];
$stroka =~m/^.+\s(\S+)$/;
$slovo = $1;
print $slovo;

[Гость]

[Scaramouch]

Это я был
_________________
Ноги - это две лишние руки.

[Гость]

в массиве $data содержиться:
---------- C:\ROUTE\ROUTE.PRINT1
Ћб­®ў­®© и«о§: 192.168.8.66

надо 192.168.8.66 записать в отдельную переменную!

[Гость]

$file_path="route.print";

open FILE, "$file_path";

@data=<FILE>;
close FILE;
$stroka=$data[2];
$stroka =~m/^.+\s(\S+)$/;
$slovo = $1;
print $slovo;

[Scaramouch]

[Гость]

переменная $data[2]
содержит строку Ћб­®ў­®© и«о§: 192.168.8.66

[Гость]

я понимаю каждую строчку своего кода, и никогда ничей код не копировал!!!

а до этого я просто не понял вопрос либо ты неграмотно задал!

[Scaramouch]

Окей.
Что делают эти строки?

[FUKS]

А лучше сразу все строки массива распечатать:

[Scaramouch]

Естесственно, там надо проверку на совпадение делать - выше один товарищ уже это говорил.
Я просто показал рег и просил камрада, задавшего вопрос, точно написать значение его строки и предупреждал насчет переводов строки и тому подобного.
Но видимо этому камраду нужно, чтоб ему написали просто действующий код, который будет работать с его, никому кроме него не известными, данными.
Я лично обсуждение этой "проблемы" закончил, так как уже убедился, что на форуме можно помочь только тем, кто сам пытается разобраться в том, что ему пишут и в том, что он сам пишет.
Прошу прощения за развернутый при моем непосредственном участии флейм.

ЗЫ. Почему $data[2] - сие науке неизвестно но дела это не меняет
_________________
Ноги - это две лишние руки.

[Гость]

ешил проблему вот так :

$str = $data[2];
$str=~m/(\d+)\.(\d+)/;

$ip_addr1=$&;
$ip_addr2=$';


я не знал какие спец. переменные принимают значения после поиска...