суббота, 24 октября 2009 г.

Подсчет платных в текстовике

Подсчет платных в текстовике:

#!/usr/bin/perl

print "\tВыворотка\tРамка\tЗвездочка\tТочка\tФото\n";
while (<stdin>){
   @Text=split (' ',$_);
   $rubr=$Text[0];
   if ($rubr eq '@RB'){
      $nomer=$Text[2];
      if (($nomer!=101)&&($flag>0)){print "$old_nomer\t$flagA\t$flagB\t$flagC\t$flagD\t$flagE\n";}
      $flagA=0;
      $flagB=0;
      $flagC=0;
      $flagD=0;
      $flagE=0;
      $flag=0;
      $old_nomer=$nomer;
   }
   if ($rubr eq '@RPT') {$flagA=$flagA+1;$flag=1;}
   if ($rubr eq '@R2') {$flagB=$flagB+1;$flag=1;}
   if ($rubr eq '@RPZ') {$flagC=$flagC+1;$flag=1;}
   if ($rubr eq '@RPP') {$flagD=$flagD+1;$flag=1;}
   if ($rubr eq '@FOTO') {$flagE=$flagE+1;$flag=1;}
}
if (($nomer==950)&&($flag>0)){print "$nomer\t$flagA\t$flagB\t$flagC\t$flagD\t$flagE\n";}

пятница, 23 октября 2009 г.

Замена с помощью Sed

Встала передо мной следующая задача - в текстовом файле в строчках, начинающихся на определенный набор символов заменить некоторое слово на другое. Причем если искомое слово встречается в строчке второй раз, то заменить его на третье слово. Со всеми последующими повторами ничего не делать. Вот пример (придумал его только что, естественно в боевой задаче содержимое другое):

вторник, 13 октября 2009 г.

Сбор информации о происходящем на компьютере

Сбор информации о происходящем на компьютере:

Начать стоит, конечно, со стандартного top:

top - display Linux tasks

понедельник, 5 октября 2009 г.

Управление VirtualBox из консоли

Управление VirtualBox из консоли

На host-сервере VirtualBox вообще может не быть графического окружения. И доступ к нему может быть только через ssh. Это нисколько не помешает для развертывания виртуальных машин.