--------------------------------------------------------------------------------------------------
	ПРОВЕРКА
--------------------------------------------------------------------------------------------------
			- ( -w $f or -d $d ) or die ('!');
			- $s = ( $v > 0 ) ? 1 : 0;
			- $obj->err && die $obj->errstr;
--------------------------------------------------------------------------------------------------
	ЦИКЛЫ
--------------------------------------------------------------------------------------------------
			- for $r ( qw(a b) ) { }
			- while  ( <*.sql> ) { }
			- say $_ foreach (split /,/,$_);
			- say $_ foreach(qw/one two fr/);
			- say $k, $v while ( ($k, $v) = each %cmds );
--------------------------------------------------------------------------------------------------
    	REGEXP
--------------------------------------------------------------------------------------------------
      			- $REGEX = /^(\d+)/;
      		  	  ($d) = m/$REGEX/o; регулярка через переменную
			- $str =~ s/[^a-zA-z0-9]+/_/mg; заменить все не цифры и буквы на "_"
--------------------------------------------------------------------------------------------------
	ИЗМЕНЕНИЕ
--------------------------------------------------------------------------------------------------
			- cat file.pm | perl -pe 's/^\n$/<br>\n/g'
			- iconv -f WINDOWS-1251 -t UTF-8 "$i" > file.pm
			- find /bla |egrep --color -w '.+htm$'| perl -lne 'print $_;' напечатать список файлов *.htm из /bla
			- find /var/www/shoptale.net/html |egrep --color -w '.+html$'| perl -lne '$c = "cat $_ |replace .htm .html > $_" ; `$c;`'
--------------------------------------------------------------------------------------------------
	ВЫВОД ФИЛЬTР
--------------------------------------------------------------------------------------------------
			- cat file.pm |grep -B100000 $x
			- ls |egrep --color -w '.+\..+' # все домены в папке
			- ls |perl -lne 'print "<a href=/$_>$_</a>"' #все файлы в папке перевести в ссылки
			- find /var/www/ |perl -lne 'chomp; print `perl /var/bin/recodeifneeded UTF8 $_`;'
			- find /var/www/brand4u/ |grep yml |perl -lne 'if(-M $_ < 1 ){ print $_;} ' найти все реадктированые файлы младше суток
			- grep -iR reklamadel.com | awk -F':' '{ print $1" |" $2; }' греп для поиска строки в файлах деректории рекурсивно
			- ls -a /var/* |grep :|replace ':' '' |perl -lne 'print `du -sh $_`;' список папок и занимаемого ими места
--------------------------------------------------------------------------------------------------
	ЗАПИСЬ
--------------------------------------------------------------------------------------------------
			- echo 'alias w3="cd /var/www/"' >> .bashrc
--------------------------------------------------------------------------------------------------
	DBI
--------------------------------------------------------------------------------------------------
			- DBI->connect('DBI:mysql:database=d;hostname=h;user=u;password=p');
			- my $db  = DBI->connect( $dns );
			- $db->prepare(''); $h->execute();
			- while ( my ($l) = $h->fetchrow_array or $l = $st->fetchrow_hashref )
			- { push @b, $l; }
			- CREATE DATABASE `b` /*!40100 DEFAULT CHARACTER SET utf8 */;
			- GRANT ALL ON b.* TO 'b'@'localhost' IDENTIFIED BY 'jousushow';
			- ($id, $name) = $db->selectrow_array("select id,name from cat where id=?",undef,9);
--------------------------------------------------------------------------------------------------
	DATA::TABLES
--------------------------------------------------------------------------------------------------
  			- my $csv = Data::Table::fromCSV( 'sheet.csv', 1, ['vm_id','st_id','vm_img','st_img'] );
			- my $h = Data::Table::fromCSV( 'sheet.csv' );
			- my $n = $h->iterator();
			  while ( my $l = &$n ) { say $l->{col1}; };

--------------------------------------------------------------------------------------------------
	OO
--------------------------------------------------------------------------------------------------
			package My;
			use 5.010; use strict; use warnings;
			sub new(){
			  my $c = shift;
			  my $s = bless { a => shift }, $c;
			  return $s;
			}

--------------------------------------------------------------------------------------------------
	HASH AND ARRAY
--------------------------------------------------------------------------------------------------
			foreach my $k ( @key ){
	  		  $a{$k} = $r->method eq 'POST' ? $apr->body($key) : $apr->param($key);
	  		}

--------------------------------------------------------------------------------------------------
	STD
--------------------------------------------------------------------------------------------------
			my $str = $ARGV[0] or undef;
--------------------------------------------------------------------------------------------------

--------------------------------------------------------------------------------------------------
	CMD
--------------------------------------------------------------------------------------------------
	    /usr/bin/perl lala.pl 2&> /dev/null
	    sshfs -p 1122 root@beta.stylus.com.ua:/ /home/ivanb/sshfs/st/
	    curlftpfs ftp://stylus:jG7dgVwOvnsBiWs@212.113.37.27/ /to_mount/
	    rsync -a --recursive --progress --log-file=/rsync.log  /from/ /to/