Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

matze77's scratchpad

by matze77 (Friar)
on Nov 26, 2008 at 21:23 UTC ( #726233=scratchpad: print w/ replies, xml ) Need Help??

Variable Scopes: my only "local" not assigned outside the "loop" e.g. global: use vars qw($var1 $var2); while (){ $var1 = 0 }

some things i am currently on:, maybe not of interest for you ;-)
Top: Find a solution in (active perl, e.g.,platform: Win32) to send warning mails logs to admins when diskspace is nearing x% free only ... selective warnings monitor text files
file date

Answer: How do I determine file creation or last-access date?

Multi-directory Change Reporter
Re: Modern best practices for multilingual regexp alphabetical character matching?
File parsing File parsing Mail: Reaping messages by Message-ID
99 Programming Problems
https://prof.ti.bfh.ch/hew1/informatik3/prolog/p-99/
sleep, nice, performance issues
breathe - beyond 'nice'

starting perl Re^2: #!/usr/bin/perl vs. -*- perl -*- Certification In PERL

Other Users, their experiences:
From Initiate to Monk
atcroft
Blue
Perlbotics
1st Monasterians
explorer
kyle's scratchpad The FAQ
PerlMonks FAQ

Where is paco:
How do I recursively process files through directories
http://img186.echo.cx/img186/8749/vi7kt.gif stolen from Tanktalus
Formatting:
Writeup Formatting Tips
something to remind me of:
use strict;
perl -w
perldoc perdoc -q
perldoc perlintro perldoc perltoc perldoc perlfaq[1-x] quote delimiter(s), \, $, and @,

RFC: How to survive your first few months of Perl
editors:
.vimrc for perl programmers Beginners Guides:
How (Not) To Ask A Question

videos: Download video from popular videoservices

Perl starter with big problem. PM, Bot:
im2

Automatically add all defined functions to your @EXPORT
Plugins etc.:
http://padre.perlide.org/

Game related:
http://search.cpan.org/~jset/Games-Sudoku-0.06/lib/Games/Sudoku/Board.pm
chatbox, fullscreen http://www.perlmonks.org/index.pl?node_id=3184&displaytype=raw linking to
cpan Modules:
Email::Abstract
Outlining levels of Perl People http & co:
http://csszengarden.com/ linuxer: perlop has a section about interpolation linuxer: "Quote and Quote-like Operators" array simple print:
#!/usr/bin/perl @words = ("one","two","three","four","five"); foreach $elem (@words){ print "$elem\n"; }
Mathematical standard "problems":
Odd or even numbers:
#!/usr/bin/perl -w #We use warnings #test if a number is odd or even using modulus: for ($i = -3; $i <=11; $i++) { $mod = $i %2; if ($mod == 0){ printf "$i is even, modulus is $mod \n"; } if ($mod == 1){ printf "$i is odd, modulus is $mod \n"; } }
win32:
CleanPath
http://perldoc.perl.org/perlvar.html "$?" Looking for a "learning and restricting" Sandbox ... (Both: prevent harmful programming failures and "Test Code" ...) embedded spaces in paths and system() File ueberschreiben:
#!/usr/bin/perl #use 5.006; #use strict; use warnings; open (IN, "+</home/victim/perl/mifile.txt"); @file = <IN>; seek IN,0,0; foreach $file (@file){ $file =~ s/muster1/\#\ muster2/i; #$file =~ s/muster1/\#\ muster2/ig; print IN $file; } close IN; #l15 s/ersetze/mit/ig #l15 bei \ muster2 wird zusätzliche ein # und ein leerzeichen eingefüg +t #l15 s /i= case insensitive g = global alle #l18 filehandle schliessen #ohne g nicht global wird nur 1x ausgeführt # rofl: print map {chr (((hex A0)/2+3)+$_)}(0,-11,-10,1) grep: [id://811976] hashes: [id://563314]
html-commands: strike bold

Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (4)
As of 2014-07-13 04:25 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    When choosing user names for websites, I prefer to use:








    Results (245 votes), past polls