electronica
other links
|
|
Brad Oaks - Triangle Linux User's Group
|
|
"To what purpose then require the co-operation of the Senate? I answer, that the necessity of their concurrence would have a powerful, though, in general, a silent operation. It would be an excellent check upon a spirit of favoritism in the President, and would tend greatly to prevent the appointment of unfit characters from State prejudice, from family connection, from personal attachment..."
"[The President] would be both ashamed and afraid to bring forward, for the most distinguished or lucrative stations, candidates who had no other merit than that of coming from the same State to which he particularly belonged, or of being in some way or other personally allied to him, or of possessing the necessary insignificance and pliancy to render them the obsequious instruments of his pleasure."
Alexander Hamilton
|
LDP's HOWTOs updated this month
boot tools at http://www.nu2.nu/ and a utility to create VCDs from your digital pictures. corpmodboot is a bootable cd which you can add ghost and vscan onto.
Project Gutenberg.
|
|
good, quick article on developerWorks on buring cd's in Linux
snippet of perl code found in usenet:
open MKISOFS, "| mkisofs -quiet -JR -graft-points -o image -path-list -";
foreach $file (@files) {
if ($file =~ /(.*\/).+$/) {
print MKISOFS $1 , "=", $file, "\n";
}
else { # applies to files in the root directory
print MKISOFS $file, "\n";
}
}
|
installing Memcached as a non-root user
from #perl:
- closures:
perl -wle'my $cref = sub { my $i; print "i is $i"; BEGIN{$i=5;}}; print ref $cref; &{$cref} '
Chris62vw> heres a good, simple example of a closure: perl -wle'sub counter { my $i = 0; return sub { $i++ } }; my $cnt = counter(); print $cnt->(); print $cnt->();'
- tie: (removing first three lines of a file)
perl -e "tie my @fl, 'Tie::File', 'filename'; splice @fl, 0, 3;"
or to remove the last three lines:
splice @fl, $#fl - 3, 3; or splice @fl, -3;
<e1f> one last thing...since i have the entire file in the @fl array, how do i delete a line matching a regexp
<Roderick> @fl = grep { !/pattern/ } @fl;
- /msg perlbot paste
13:55 < j0rd> i was going about it all wrong, this works
13:55 < j0rd> $self->{TEST} = \&yo;
13:55 < j0rd> $self->{TEST}->('asd');
13:55 < j0rd> thx for help
|
|
http://www.netjuke.org/ a project supported by ibiblio: Netjuke aims to enable small communities to run private web-sites and access all the media they own, distribute or are granted access to.
|
linux stuff
Windows Scripting Host
random
Perl Jobs
|
|
|
|
the
bradoaks's TriLUG homepage
