Skip to content

Instantly share code, notes, and snippets.

@Shevviakov
Shevviakov / Task Calculator
Last active October 14, 2015 18:39
Perl Lecture 2 Homework
use feature 'switch';
our $minus = 0; #флаг, который устанавливается при обнаружении унарного минуса
while (<>) {
my @F, $F, @RPN, @stack;
chomp;
@F = m/[()^*\/+-]|\d*\.?\d+(?:[eE][+-]?\d*)?/g;
#преобразуем в обратную польскую нотацию применяя метод сортировочной станции
for my $i (0 .. $#F) {
@Shevviakov
Shevviakov / Task 1 "dir"
Last active October 7, 2015 16:16
Perl Lecture 1 Tasks
dir /A-D | perl -lnaF"\s+" -e "BEGIN {$n = 0; $m = 0} $F[2] =~ s/\D//g; $n++; if ($F[2] > 1048576) {$m++; print $F[3]} END {print qq{\nFiles total: }.($n - 7).qq{\nNumber of files greater than 1Mb: $m}}"\
#!!!-----dir output (/A-D disable directories)-----!!!
C:\Users\Dima\Downloads>dir /A-D
Том в устройстве C не имеет метки.
Серийный номер тома: 6C3F-B12A