You are here: main » notes » perl_cheat_sheet

Differences

This shows you the differences between two versions of the page.

Link to this comparison view

Both sides previous revision Previous revision
Next revision 		Previous revision
notes:perl_cheat_sheet [2013/09/15 03:02]
smthng [Perl Cheat Sheet] 		notes:perl_cheat_sheet [2013/09/22 19:28] (current)
smthng [Hashes]
Line 61: Line 61:
   * Expressions parsed in either a scalar context or a list context. Scalars are promoted to single-element lists in list context.    * Expressions parsed in either a scalar context or a list context. Scalars are promoted to single-element lists in list context. 
   * List functions may return different scalars - array variables return number of elements. The ''scalar'' function forces a scalar context e.g. for print function.   * List functions may return different scalars - array variables return number of elements. The ''scalar'' function forces a scalar context e.g. for print function.
 +
 +===== Hashes =====
 +
 +  * A hash is a list indexed by a string (key) - a collection of key-value pairs. ''%hash'' has its own namespace.
 +  * Uses scalable, efficient algorithms. Used to be called associative arrays.
 +  * ''$hash{$some_key}'' to access a value (curly-braces instead of square braces).
 +  * Assigning a hash to an array unwinds (flattens) it. 
 +  * To initialize a hash :<code perl>%some_hash = ('a', 1, 'b', 2, 'c', 3);
 +%some_hash = ( 'a' => 1, 'b'=>2, 'c'=>3,);</code>
 +  * When using a big arrow (a fat-comma) or when accessing a value, simple keys don't have to be quoted (barewords) e.g. <code perl>%some_hash = ( a => 1}; $some_hash{a};</code>
 +  * ''%revhash = reverse %hash'' to reverse a hash (for non-unique values, last one wins).
 +  * ''keys %hash;'' and ''values %hash;'' return a list of keys or value in same order (or # of keys/values in scalar context).
 +  *  '' %hash'' is true only if hash has at least one key-value pair.
 +  * To iterate over hash : <code perl>while ( ($key, $value) = each %hash ) {
 +  print "$key => $value\n"; }</code> or in order of keys <code perl>foreach $key (sort keys %hash) {
 +  print "$key => $hash{$key}\n"; } </code>
 +  * %ENV hash holds environment variables.
  
 ===== Control Structures ===== ===== Control Structures =====
Line 91: Line 108:
   * ''<>'' iterates over all files in @ARGV (or STDIN if no args) like e.g. cat/sed/awk. <code perl>while (<>) {   * ''<>'' iterates over all files in @ARGV (or STDIN if no args) like e.g. cat/sed/awk. <code perl>while (<>) {
     chomp;     chomp;
-    print "It was $_ that I saw!\n";+    print LOGFILE "It was $_ that I saw!\n";
 }</code> }</code>
   * ''print'' takes list of items and sends all to STDOUT (unseparated). ''print @array;'' vs ''print "@array";'' <code perl>print <>;          # source code for 'cat'   * ''print'' takes list of items and sends all to STDOUT (unseparated). ''print @array;'' vs ''print "@array";'' <code perl>print <>;          # source code for 'cat'
Line 103: Line 120:
 open BEDROCK, '>fred' || die "Cannot open fred: $!"; open BEDROCK, '>fred' || die "Cannot open fred: $!";
 open LOG, '>>:encoding(UTF-8)','logfile'; # for perl >= 5.6 open LOG, '>>:encoding(UTF-8)','logfile'; # for perl >= 5.6
-open BEDROCK, '>:crlf', $file_name; # DOS-formatted output+open my $bedrock, '>:crlf', $file_name; # DOS-formatted output
 binmode STDOUT, ':encoding(UTF-8)';</code> binmode STDOUT, ':encoding(UTF-8)';</code>
 +  * ''select'' can be used to change default output filehandle. ''$| = 1;'' unbuffers currently selected output.
 ===== User Subroutines ===== ===== User Subroutines =====
  
 
 
Recent changes RSS feed Creative Commons License Donate Minima Template by Wikidesign Driven by DokuWiki