jreisinger

Lenovo ThinkPad L540

• http://www.hej.sk/notebook-lenovo-thinkpad-l540-20av002ymc-cierny/
• http://www.notebookcheck.net/Review-Lenovo-ThinkPad-L540-20AV002YGE-Notebook.113894.0.html
• http://pc.bazos.sk/inzerat/36755024/Lenovo-dokovacia-stanica.php

Acer Aspire E1-572

• http://www.notebookcheck.net/Review-Update-Acer-Aspire-E1-572-34014G50Dnkk-Notebook.101928.0.html

jreisinger

https://duckduckgo.com/bang.html - all bangs

• !w
• !tr - translate
• !cpan - metacpan
• !gcpan - grep CPAN
• !perldoc
• !dpkg - Debian packages

jreisinger

#!/usr/bin/perl
use strict;
use warnings;
use v5.10;    # to have say

# Get five random dates in the format MM-DD-YYYY
my @dates;
my $n = 0;
while ( $n++ <= 4 ) {
    #<<<

jreisinger

http://www.mp3.sk/drziak-do-auta-tab-2-pre-samsung-galaxy-tab-3-p-236447.html
http://www.mp3.sk/drziak-s-uchytenim-na-celne-sklo-a-hlavovu-oprieku-pre-samsung-galaxy-tab-3-p-236674.html
http://www.tabletstore.sk/doplnky-do-auta/samsung-drziak-do-auta-na-tablety-7--az-8-2-/

jreisinger

#
# 1. global variable
#
my $num = 2;
exp();

sub exp {
  return $num * $num;
}

jreisinger

"" filetype
filetype plugin on
set ofu=syntaxcomplete#Complete " omni completion
syntax enable
"" indenting
set tabstop=2
set shiftwidth=2
"set expandtab " spaces instead of tab
set autoindent
"" statusline

jreisinger

def sum(a, b):
    sum = a + b
    return("the sum is", sum)

jreisinger

#!/usr/bin/perl
# Leave out comments and highlight regex
# Usage: $ mygrep [regex] <file>
#   to compress blank lines: $ mygrep [regex] <file> | perl -00pe0
use strict;
use warnings;
use Term::ANSIColor;

my $regex = shift unless -f $ARGV[0];

jreisinger

#!/usr/bin/perl
# Change mtime of files so they sort on TV.
use strict;
use warnings;
use 5.010;
use File::Find;

die "Usage: $0 <dir(s)>\n" unless @ARGV;

my @files;

jreisinger

#!/usr/bin/perl
# Which companies are the names associated with?
use strict;
use warnings;
use HTML::LinkExtor;
use LWP::Simple;
use URI::Encode qw(uri_encode);

my $names_file = shift;