Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
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 chilling in the Monastery: (7)
As of 2014-08-20 12:13 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (113 votes), past polls