This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/perl | |
use Lingua::Translit; | |
my $sample = 'Эй, жлоб! Где туз? Прячь юных съёмщиц в шкаф.'; | |
my $tr; | |
for ( 'ALA-LC RUS', 'ISO 9', 'DIN 1460 RUS', 'GOST 7.79 RUS', 'GOST 7.79 RUS OLD' ) { | |
$tr = new Lingua::Translit( $_ ); | |
printf "%17s %s\n", $_, $tr->translit( $sample ); |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/perl -l | |
my @array = qw( alice bob charlie daddy elf ); | |
print @array; # alicebobcharliedaddyelf | |
my $size = @array; | |
print $size; # 5, same as length @array |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/perl -l | |
# COMPANY: South Ural State University | |
# CREATED: 09/20/2011 02:09:31 AM | |
use strict; | |
use warnings; | |
=head1 USAGE | |
./sort.pl |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/perl -nl | |
print $1 while m!(http://example.com/[^" >]+)!g |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
<!DOCTYPE html> | |
<html> | |
<head> | |
<title>CSS3 Transition - Accordion sample</title> | |
<!-- 2012-01-10 - Alexander Sapozhnikov - http://shoorick.ru/ --> | |
<style> | |
body { | |
font-family: "Liberation Sans",sans-serif; | |
color: #000; | |
background-color: #fff; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
<!DOCTYPE html> | |
<html> | |
<head> | |
<title>CSS3 Transition - Accordion sample</title> | |
<!-- 2012-01-12 - Alexander Sapozhnikov - http://shoorick.ru/ --> | |
<style> | |
body { | |
font-family: "Liberation Sans",sans-serif; | |
color: #000; | |
background-color: #fff; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
# Russian translation for sphinxdrupal https://bitbucket.org/ivinco/drupal-7-sphinx-search-module/ | |
#, fuzzy | |
msgid "" | |
msgstr "" | |
"Project-Id-Version: 0.1\n" | |
"Report-Msgid-Bugs-To: \n" | |
"POT-Creation-Date: 2012-04-05 18:45+0600\n" | |
"PO-Revision-Date: 2012-04-06 13:40+0600\n" | |
"Last-Translator: Alexander Sapozhnikov <shoorick@cpan.org>\n" |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/perl | |
=head1 USAGE | |
./word-color.pl | |
=head1 DESCRIPTION | |
Print color stripes. See L<http://habrahabr.ru/post/142570/> |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
wget 'https://www.openstat.ru/rest/v0.3/ct:openstat:trends/display/columns/20120820-20120920?column=0%0Dvisitors_sum_average&column=0%0Dvisitors_sum_average_verticalpercent&column=0%0Dsessions_sum&column=0%0Dpageviews_sum&primary_column=0&view_id=1810&format=tsv' -O - \ | |
| perl -nlaF'\t' -MList::Util=max \ | |
-e '$F[0]=~s/x.*//||next;$sum{$F[0]}+=$F[4];END{for$k(0..max(keys%sum)){print"$k\t$sum{$k}"}}' |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
\version "2.14.2" | |
\relative c' { | |
\key e \major | |
\cadenzaOn | |
e4 gis b a | |
s | |
\key a \minor | |
s256 | |
\cadenzaOff | |
\bar "|" |