срочно плиз.
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
срочно плиз. - 2005-12-05 19:38:41
|
|
|
M[]squ1t[]
Сообщений: 30
Оценки: 0
Присоединился: 2005-03-18 16:43:16
|
Какой командой можно найти файлы с определенным текстом внутри?
Т.е. допустим мне надо найти переменную $username
|
|
|
|
|
срочно плиз. - 2005-12-05 20:13:06
|
|
|
B@rs
Сообщений: 301
Оценки: 0
Присоединился: 2005-05-23 18:09:22
|
Ось какая?
|
|
|
|
|
срочно плиз. - 2005-12-05 20:15:33
|
|
|
M[]squ1t[]
Сообщений: 30
Оценки: 0
Присоединился: 2005-03-18 16:43:16
|
Фряха.
Но есть еще один одчень ламерский вопрос. Как запаковать файл? Есть папка, доступная для чтения, ее надо запаковать и архив сохранить в папке, доступной для записи.
|
|
|
|
|
срочно плиз. - 2005-12-08 23:28:30
|
|
|
Nitrex
Сообщений: 404
Оценки: 0
Присоединился: 2004-09-12 23:24:27
|
tar zcf name_of_archive.tgz /papka/
|
|
|
|
|
срочно плиз. - 2005-12-09 05:29:17
|
|
|
Lex_Voodoo
Сообщений: 7328
Оценки: 0
Присоединился: 2004-12-07 13:55:12
|
Замечательная все-таки вещь FAQ
|
|
|
|
|
срочно плиз. - 2005-12-09 12:15:48
|
|
|
C1anNFeaR
Сообщений: 639
Оценки: 0
Присоединился: 2005-04-22 13:18:18
|
2Lex_Voodoo: Мда, классня вещь - этот твой FAQ. Теперь всех туда отправляю[sm=2.gif]
|
|
|
|
|
срочно плиз. - 2005-12-09 18:15:18
|
|
|
-ddd-
Сообщений: 4918
Оценки: 42
Присоединился: 2005-05-23 17:20:41
|
C1anNFeaR, но это как тЫ успеешь, мож бЫть я их первей в другое место пошлю.
|
|
|
|
|
срочно плиз. - 2005-12-09 19:19:40
|
|
|
AdReNaL1Ne
Сообщений: 8027
Оценки: 350
Присоединился: 2005-09-11 06:38:05
|
Я теперь тоже всем буду говорить: "FAQ, ФАКЬЮ, …"[sm=mad.gif]
|
|
|
|
|
срочно плиз. - 2005-12-09 22:36:31
|
|
|
Sashiks
Сообщений: 111
Оценки: 0
Присоединился: 2005-08-27 23:48:04
|
Вот, код утилиты на Перл, которая ищет нужное слово(рекурсивно) в файле - указываешь просто папку и слово как аргументы:
#!/usr/bin/perl
select STDOUT;
$| = 1;
$debug_mode = 1;
$slash = "/";
$unixslash = "/";
($dir,$regexp) = @ARGV;
unless (defined $dir && defined $regexp)
{
print <<END;
Perl find_text utility
Usage: ./find_text.pl <dir> <regexp>
END
exit;
}
print "$regexp\n";
sub indexing
{
my $dir = shift;
my $proc = shift || {return 1};
$dir =~ s/[\/\\]*$//;
opendir dir,$dir;
my @list = readdir(dir);
closedir dir;
foreach my $item (@list)
{
next if ($item eq "." || $item eq "..");
my $subname = $dir.$slash.$item;
if (opendir dir,$subname)
{
closedir dir;
return 0 unless (&indexing($subname,$proc));
}
else
{
return 0 unless (&{$proc}($subname));
}
}
return 1;
}
sub process
{
my $filename = shift;
if (!open file,$filename)
{
print "Can't open $filename\n";
return 1;
}
my $save = $/;
undef $/;
my $content = <file>;
$/ = $save;
close file;
print "$filename\n" if ($content =~ m/$regexp/gim);
return 1;
}
&indexing($dir,\&process);
|
|
|
|
|
|
