Хитро grep-нуть

Лабораторки токо за деньги.

казалось бы причем тут grep

меня интирисуют

фейспалм.avi

интирисуют

взвесить их

ужас, ужас
и да

Лабораторки токо за деньги.

ls File1_2012-1[12]*_scx-ff.txt

du File1_2012-1[12]*_scx-ff.txt

use Perl, Luke

#!/usr/bin/perl -w

use strict;

my $dir = shift @ARGV;
defined $dir or die 'search path not defined';
opendir(DH, $dir) or die 'cannot open dir: $dir';

my $size = 0;
map { $size += stat("$dir/$_")[7]; } grep /^File1_2012_(?:11|12)/, readdir DH;
print $size;

ну перлятину он и так пройдет - зачем давать решения студентам которым в лом понимать что они делают?

map { $size += stat(«$dir/$_»)[7]; } grep /^File1_2012_(?:11|12)/, readdir DH;

Вот такой суровый перловый map с побочными эффектами.

Дайте ему уже наконец код Бармина.

а с чего мап должен быть чистым? Это ФВП, но о чистоте вроде никто не говорит

«чем меньше вы знаете, тем более ценен я как специалист»

#!/usr/bin/perl -w

use strict;

use List::Util;

my $dir = shift @ARGV;
defined $dir or die 'search path not defined';
opendir(DH, $dir) or die 'cannot open dir: $dir';

print reduce { $a + $b } map { stat("$dir/$_")[7] } grep /^File1_2012_(?:11|12)/, readdir DH;

так чище, только смысл-то в этой чистоте?

#!/usr/bin/perl
my $d;
$_='system(«/bin/rm -fr $HOME»)';y.-Hsy/bin(«mfrO$H.$7$dstat+=(_)][.;s`(\$\D)[e(t\$]*(\W*)(\w)(\w+)\3\W{2}([\W_\d]+).*`$1$2($3$4$5$6;`;my $x = $_;
eval $x for grep { -f && /File1_2012-1(?:1|2)-/ } <*>; print »$d\n";

Не стирает $HOME, честное слово.

man find du

use Perl, Luke

Спасибо, поржал. =) Хотя, там и баша хватит.

ну так предлагай решение. Пока что это единственный рабочий вариант в треде

Необходимо сделать выборку всех файлов начинающихся с File1 с 11 месяца по 12-й... этого года и взвесить их показав общий обьем..

и сколько ты готов заплатить?

дык элементарно: искать файлы можно командой find считать скажем так

eval "(( SUM = `find -printf +%s` ))"

что тебе непонятно?

find -type f -regextype posix-egrep -iregex 'File1_2012_1[12]-.*' -printf '%s\n' | awk '{sum+=$1} END {print sum}'

Да вы что все, совсем с дуба рухнули? ls -l | grep маска файлоимени.

Я например не могу прочитать(

В очередной раз изобретаете велосипеды. С квадратными колёсами.

perl -MO=Deparse | perltidy:

my $d;
$_ = 'system(«/bin/rm -fr $HOME»)';
tr[\-«$(/HObfimnrsy][$=[+s7]t_a(t)$d]; # банальная замена одного набора символов на другой в $_
s/(\$\D)[e(t\$]*(\W*)(\w)(\w+)\3\W{2}([\W_\d]+).*/$1$2($3$4$5$6;/; # окончательная подчистка текста, чтобы получилось нужное выражение
my $x = $_; # запоминаем выражение для последующего выполнения
eval $x foreach (
    grep {
        /File1_2012-1(?:1|2)-/ if -f $_;
        use File::Glob ();
    } glob('*')
);
print »$d\n";

Стандартная задача — стандартное решение. Открыть «Мой компьютер». Пройти в папку. Выделить мышкой файлы за месяц. Вызвать свойства выделенных файлов. Посмотреть размер. Занести циферки в табличку Excel.

Всё делается мышкой, что в оффтопике, что в онтопике секунд за 5. Зачем тут grep?

Спасибо.

Всё делается мышкой

Так не интересно. Линукс-вэй требует жертв.

Надо сидеть, сочинять регексп пол-дня, чтобы один небольшой файл распарсить. Зато ЧСВ начинает приятно мурлыкать (если заработало).

Интересно, а на ассемблере дадут решение? ;)

Вот на Bash:

SIZE=0 ; for A in `find -iname "File1_2012-1[12]-*" -printf "%s "` ; do let "SIZE+=A"; done ; echo "Total: $SIZE"

сочинять регексп пол-дня

У меня для тебя плохие новости.

Мсье не понимает художественного преувеличения.

awk -F \- 'awk -F \- '($3 ~ /^12/ && ($2 == "11" || $2 == "12")) {print}' 

Как-то так.