forum.opennet.ru - "обработка файла" (1)

форумы

помощь

поиск

регистрация

майллист

ВХОД

слежка

"обработка файла"

Форумы Программирование под UNIX (Public)
Вариант для распечатки		Архивированная нить - только для чтения! Пред. тема \| След. тема
Изначальное сообщение		[Проследить за развитием треда]

"обработка файла"
Сообщение от nibelung (ok) on 11-Авг-04, 18:51 (MSK)
доброго времени суток перлу знаю плохо просьба помочь есть допустим файлс некоторым количеством строк в каждой строке может встречатся допустим слово 0x0 надо вывести на экран количество таких слов иколичество всех остальных ах да в строках также есть слова типа eth0 и eth1 для каждого из девайсов надо посчитать вышеизложенное заранее спасибо
	Рекомендовать в FAQ \| Cообщить модератору \| Наверх

Оглавление

обработка файла, ihor, 12:43 , 12-Авг-04, (1)

Индекс форумов | Темы | Пред. тема | След. тема

Сообщения по теме

1. "обработка файла"

Сообщение от ihor on 12-Авг-04, 12:43  (MSK)

#!/usr/local/bin/perl -w
use strict;
my ($str, $i, @patterns, @found, @counters, @strings);
@strings = ('0x0', 'eth0', 'eth1');
@patterns = map(qr/$_/, @strings);
@found = ();
@counters = ([0, 0], [0, 0], [0, 0]);
open (FILE, 'file.txt') || die "Can't open: $!";
while (defined ($str = <FILE>)) {
  for ($i = $#patterns; $i >= 0; $i--) {
    ($str =~ /$patterns[$i]/) ? ($found[$i] = 1) : ($found[$i] = 0);
  } # for
  if ($found[0]) {
    ${$counters[0]}[0]++;
    ($found[1]) && (${$counters[1]}[0]++);
    ($found[2]) && (${$counters[2]}[0]++);
  } # if
  else {
    ${$counters[0]}[1]++;
    ($found[1]) && (${$counters[1]}[1]++);
    ($found[2]) && (${$counters[2]}[1]++);
  } # else
} # while
close (FILE);
printf ( "\n\n'%s' was found in %i string(s).\n", $strings[0], ${$counters[0]}[0]);
printf ("It was not found in %i string(s).\n", ${$counters[0]}[1]);
print "===========================\n\n";
for ($i = $#strings; $i > 0; $i--) {
  printf ("There were found %i string(s) that contain both '%s' and '%s'.\n", ${$counters[$i]}[0], $strings[$i], $strings[0]);
  printf ("There were found %i string(s) that contain '%s' but don't contain '%s'.\n", ${$counters[$i]}[1], $strings[$i], $strings[0]);
  print "===========================\n\n";
} # for

Рекомендовать в FAQ | Cообщить модератору | Наверх

Удалить

Индекс форумов | Темы | Пред. тема | След. тема

Пожалуйста, прежде чем написать сообщение, ознакомьтесь с данными рекомендациями.

Партнёры:

Хостинг:

Закладки на сайте
Проследить за страницей

Created 1996-2024 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру

1. "обработка файла"
Сообщение от ihor on 12-Авг-04, 12:43 (MSK)
#!/usr/local/bin/perl -w use strict; my ($str, $i, @patterns, @found, @counters, @strings); @strings = ('0x0', 'eth0', 'eth1'); @patterns = map(qr/$_/, @strings); @found = (); @counters = ([0, 0], [0, 0], [0, 0]); open (FILE, 'file.txt') \|\| die "Can't open: $!"; while (defined ($str = <FILE>)) { for ($i = $#patterns; $i >= 0; $i--) { ($str =~ /$patterns[$i]/) ? ($found[$i] = 1) : ($found[$i] = 0); } # for if ($found[0]) { ${$counters[0]}[0]++; ($found[1]) && (${$counters[1]}[0]++); ($found[2]) && (${$counters[2]}[0]++); } # if else { ${$counters[0]}[1]++; ($found[1]) && (${$counters[1]}[1]++); ($found[2]) && (${$counters[2]}[1]++); } # else } # while close (FILE); printf ( "\n\n'%s' was found in %i string(s).\n", $strings[0], ${$counters[0]}[0]); printf ("It was not found in %i string(s).\n", ${$counters[0]}[1]); print "===========================\n\n"; for ($i = $#strings; $i > 0; $i--) { printf ("There were found %i string(s) that contain both '%s' and '%s'.\n", ${$counters[$i]}[0], $strings[$i], $strings[0]); printf ("There were found %i string(s) that contain '%s' but don't contain '%s'.\n", ${$counters[$i]}[1], $strings[$i], $strings[0]); print "===========================\n\n"; } # for
	Рекомендовать в FAQ \| Cообщить модератору \| Наверх