Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Perl: Общие вопросы > работа с файлами в PERL


Автор: nerv 27.3.2007, 10:21
возикла следующая проблема.  
есть 2 текстовых файла *.txt. 
необходимо организовать поиск подстрок из одного файла в строках другого. 
срандартные операции типа index, !~s, ~s и проч. напроч отказываются работать со строковыми переменными такого типа. работают только в том случае, если исследуемые строку и подстроку прописать в теле программы.  а мне бы очень хотелось (это необходимо) этого избежать 

Автор: tishaishii 27.3.2007, 10:35
Могут работать /\Q$_\E/.
Только оно не за чем, если просто по подстроке, а не по шаблону.
Используй index.

Автор: nerv 29.3.2007, 13:49
index не пашет. вот это работает:
$a="wtdfwefdhgvhvhhfhbvkerb";
print '$a=',$a,"\n\n";

$s="fdh";
print '$s=',$s,"\n\n";

$pos=-1;
while(($pos=index($a,$s,$pos))>-1)
{
print "найдено в позиции $pos\n";
$pos++;
}
print "\n\n\n";

а это нет:
$q=@mas_1[2];
print '$q=',$q,"\n\n";
$w=@mas_2[0];
print '$w=',$w,"\n\n";
$pos_=-1;
while(($pos_=index($q,$w,$pos_))>-1)
{
print "найдено в позиции $pos_\n";
}

здесь @mas_1[2] и @mas_2[0] это строки в массивах строк, записанных в 2х соответствующих файлах 
 smile 

Автор: arto 29.3.2007, 13:57
>cat > a1.txt
test1
test2
^C
>cat > a2.txt
sdvkbsafvlksanbv
swvljksabvtest1aefchweflh
swfhwslhvrf
test1
asefheafj
test
^C
>grep -fa1.txt a2.txt
swvljksabvtest1aefchweflh
test1

Автор: nitr 29.3.2007, 14:52
Ребята "давайте жить дружно" smile
Форум многофункционален ;) - проще говоря, подсветку сделайте для код... Надеюсь как это делается ненадо учить...

Автор: amg 30.3.2007, 04:49
Цитата(nerv @  29.3.2007,  13:49 Найти цитируемый пост)
а это нет:
Код

$q=@mas_1[2];
print '$q=',$q,"\n\n";
$w=@mas_2[0];
print '$w=',$w,"\n\n";
$pos_=-1;
while(($pos_=index($q,$w,$pos_))>-1) {
  print "найдено в позиции $pos_\n";
}

Во-первых, $pos_++; пропущено (а то будет бесконечный цикл в случае нахождения подстроки). Во-вторых, chown $w; (или chown @mas_2;) делал? Если нет, то $w будет оканчиваться символом "\n", который в строке $q если и присутствует, то только в самом конце, и поэтому, скорее всего, такая $w в $q не будет обнаружена.

Автор: tishaishii 30.3.2007, 19:30
Цитата(nerv @ 29.3.2007,  13:49)
index не пашет. вот это работает:
$a="wtdfwefdhgvhvhhfhbvkerb";
print '$a=',$a,"\n\n";

$s="fdh";
print '$s=',$s,"\n\n";

$pos=-1;
while(($pos=index($a,$s,$pos))>-1)
{
print "найдено в позиции $pos\n";
$pos++;
}
print "\n\n\n";

а это нет:
$q=@mas_1[2];
print '$q=',$q,"\n\n";
$w=@mas_2[0];
print '$w=',$w,"\n\n";
$pos_=-1;
while(($pos_=index($q,$w,$pos_))>-1)
{
print "найдено в позиции $pos_\n";
}

здесь @mas_1[2] и @mas_2[0] это строки в массивах строк, записанных в 2х соответствующих файлах 
 smile

"index" не пашет, а сам пишешь "index".smile))))))

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)