Perl template maker

This script takes one argument and outputs a perl executable file ready to have code added to it! w/e lolz. It's easy enought to figure out anyway... PD code

#!/usr/bin/perl
$filename = @ARGV[0];
open(FILE, ">$filename");
print{FILE}"#!/usr/bin/perl\n# $filename\nuse warnings\;\nuse strict\;
+\n";
close(FILE);
system("chmod 755 $filename");
[download]

Comment on Perl template maker Download Code

Replies are listed 'Best First'.
Re: Perl template maker by GrandFather (Saint) on Jul 21, 2006 at 21:57 UTC
Generally it is better to use a three parameter open: `open FILE, '>', $filename;` [download] to avoid surprises with interesting file names. Non-*nix users may wish to avoid the chmod line. The editor that I use with Perl allows me to insert template text. Guess what one of my templates looks like? :) DWIM is Perl's answer to Gödel	[reply] [d/l]
Re^2: Perl template maker by fatalserpent (Initiate) on Jul 24, 2006 at 16:20 UTC
There are gaseph non-nix perl coders! I am appaled! All content posted by this user is in the Public Domain unless otherwise noted.*	[reply]
Re^3: Perl template maker by GrandFather (Saint) on Jul 24, 2006 at 18:54 UTC
You ought be delighted. At least that way Perl will remain after *nix has died the death of a thousand mutations. :) DWIM is Perl's answer to Gödel	[reply]
Re^4: Perl template maker by Anonymous Monk on Aug 01, 2006 at 22:50 UTC
Re^5: Perl template maker by GrandFather (Saint) on Aug 01, 2006 at 23:29 UTC
Some notes below your chosen depth have not been shown here