german@german:~$ perl -e 'my ($res) = split(/_/, "a_b_c_d"); print $res;'
$res = 'a'
german@german:~$ perl -e 'my ($res) = split(/_/, "_a_b_c_d"); print $res;'
$res = ''!!!
Операции над строками(Perl)
Мне надо разбить текст на параграфы.
Есть переменная содержащая какой-нибуть текст:
$str="dddddddd\nggggggg\njjjjjjj";
Далее я выделяю первый параграф:
($str1)=split(/\n/,$str);
потом удаляю этот параграф из переменной $str:
$str=~s/$str1//;
В итоге: str1=dddddddd\n, а str=nggggggg\njjjjjjj.
Но если дальше произвести над переменной $str те же действия получается тот же результат. В чем прикол?
Цитата:
Originally posted by Mao
Народ, подскажи плиз.
Мне надо разбить текст на параграфы.
Есть переменная содержащая какой-нибуть текст:
$str="dddddddd\nggggggg\njjjjjjj";
Далее я выделяю первый параграф:
($str1)=split(/\n/,$str);
потом удаляю этот параграф из переменной $str:
$str=~s/$str1//;
В итоге: str1=dddddddd\n, а str=nggggggg\njjjjjjj.
Но если дальше произвести над переменной $str те же действия получается тот же результат. В чем прикол?
Народ, подскажи плиз.
Мне надо разбить текст на параграфы.
Есть переменная содержащая какой-нибуть текст:
$str="dddddddd\nggggggg\njjjjjjj";
Далее я выделяю первый параграф:
($str1)=split(/\n/,$str);
потом удаляю этот параграф из переменной $str:
$str=~s/$str1//;
В итоге: str1=dddddddd\n, а str=nggggggg\njjjjjjj.
Но если дальше произвести над переменной $str те же действия получается тот же результат. В чем прикол?
у тебя не str=nggggggg\njjjjjjj
а str = \n!!!nggggggg\njjjjjjj
вот для примера
Код:
Цитата:
Originally posted by Mao
Народ, подскажи плиз.
Мне надо разбить текст на параграфы.
Есть переменная содержащая какой-нибуть текст:
$str="dddddddd\nggggggg\njjjjjjj";
Далее я выделяю первый параграф:
($str1)=split(/\n/,$str);
потом удаляю этот параграф из переменной $str:
$str=~s/$str1//;
В итоге: str1=dddddddd\n, а str=nggggggg\njjjjjjj.
Но если дальше произвести над переменной $str те же действия получается тот же результат. В чем прикол?
Народ, подскажи плиз.
Мне надо разбить текст на параграфы.
Есть переменная содержащая какой-нибуть текст:
$str="dddddddd\nggggggg\njjjjjjj";
Далее я выделяю первый параграф:
($str1)=split(/\n/,$str);
потом удаляю этот параграф из переменной $str:
$str=~s/$str1//;
В итоге: str1=dddddddd\n, а str=nggggggg\njjjjjjj.
Но если дальше произвести над переменной $str те же действия получается тот же результат. В чем прикол?
$STR =~ s/[\n|\r]+/\<BR\>/gi;
или
@TEXT=split(/\\n/,$STR);