satimis

Hi folks,

Perl
===

Instead of using following command printing output to a file;

$ perl AAA.pl > /pathto/name_of_file

is it possible adding "print file function" to the script

1) If YES
Please advise how to make it.

2) Can I add following bash syntax to the script
user=$(whoami);
now=$(date +%Y.%m.%d.%R);
File="/tmp/satimis/comparison_${user}_${now}.txt";

so that the printout file will carry name of creator, date and time, etc.

If possible please shed me some light to re-edit the script.

TIA

B.R.
satimis

sarumont

You could have the perl script use a system() call to execute that bash stuff. Or better yet you could use the time() function for your time and get the env. variable $USER for the username.

As far as a function to print a file, just use a system() call to lpr to print your file.

__________________
"Time is an illusion. Lunchtime doubly so."
-the late, great Douglas Adams

Infinite Recursion

$sitename="TheWebSite";
$siteurl="http://www.thewebsite.com";
$description="The Web Site";
$sitedata="websites.dat";

open(DAT,">$sitedata") || die("Cannot Open File");
print DAT "$sitename\|$siteurl\|$description\n";
close(DAT);

__________________
http://jasonpowers.net

"There are a thousand hacking at the branches of evil to one who is striking at the root."

Lance

Sorry... my Perl-fu is strong...

__________________

kurifu

Yeah, I am thinking just use file handles, unless you were looking at getting right into ps formatted output, in which case you need to look into using a plethora of command lines tools to generate the proper output, once of which is called "gv".

__________________
Clifford Matthew Roche <geek@cliffordroche.com>
Web Hosting: http://www.crd-hosting.com
Consulting: http://www.crdev-consulting.com

Infinite Recursion

Perl-fu.... hah. I still favor my Perl-jitsu... it makes readability a bit easier.

__________________
http://jasonpowers.net

"There are a thousand hacking at the branches of evil to one who is striking at the root."