#! usr/bin/perl
use POSIX;
use strict;
use warnings;
my $file = $ARGV[0];
open FILE,'<', $file;
while (my $line = <FILE>){print $line;}
my $var = 5;
print $var;
it gave me
Code:
0.355u 1.00s 0:1.01 110.2% 0+0k 0+0io 0pf+0w
on the terminal, after printing the contents of the file that I've given as ARGV[0] . .
And yes, that file does not contain the above line . .
uname -a gives,
Code:
Linux <username> 2.6.18-274.3.1.el5 #1 SMP <date & time> x86_64 GNU/Linux
I am using Redhat 5.0 . .
Also, time sleep 10 gives,
Code:
0.000u 0.000s 0:10.00 0.0% 0+0k 0+0io 0pf+0w
so I guess you're on right track, Corona688
So, What does the rest four fields signify?
Thanks,
-MD
Last edited by Scrutinizer; 10-23-2013 at 04:12 AM..
Reason: code tags instead of quote tags
JavaScript::Packer(3pm) User Contributed Perl Documentation JavaScript::Packer(3pm)NAME
JavaScript::Packer - Perl version of Dean Edwards' Packer.js
VERSION
Version 1.006003
DESCRIPTION
A JavaScript Compressor
This module is an adaptation of Dean Edwards' Packer.js.
Additional information: http://dean.edwards.name/packer/
SYNOPSIS
use JavaScript::Packer;
my $packer = JavaScript::Packer->init();
$packer->minify( $javascript, $opts );
To return a scalar without changing the input simply use (e.g. example 2):
my $ret = $packer->minify( $javascript, $opts );
For backward compatibility it is still possible to call 'minify' as a function:
JavaScript::Packer::minify( $javascript, $opts );
The first argument must be a scalarref of javascript-code.
Second argument must be a hashref of options. Possible options are:
compress
Defines compression level. Possible values are 'clean', 'shrink', 'obfuscate' and 'best'. Default value is 'clean'. 'best' uses
'shrink' or 'obfuscate' depending on which result is shorter. This is recommended because especially when compressing short scripts the
result will exceed the input if compression level is 'obfuscate'.
copyright
You can add a copyright notice at the top of the script.
remove_copyright
If there is a copyright notice in a comment it will only be removed if this option is set to a true value. Otherwise the first comment
that contains the word "copyright" will be added at the top of the packed script. A copyright comment will be overwritten by a
copyright notice defined with the copyright option.
no_compress_comment
If not set to a true value it is allowed to set a JavaScript comment that prevents the input being packed or defines a compression
level.
/* JavaScript::Packer _no_compress_ */
/* JavaScript::Packer shrink */
EXAMPLES
Example 1
Common usage.
#!/usr/bin/perl
use strict;
use warnings;
use JavaScript::Packer;
my $packer = JavaScript::Packer->init();
open( UNCOMPRESSED, 'uncompressed.js' );
open( COMPRESSED, '>compressed.js' );
my $js = join( '', <UNCOMPRESSED> );
$packer->minify( $js, { compress => 'best' } );
print COMPRESSED $js;
close(UNCOMPRESSED);
close(COMPRESSED);
Example 2
A scalar is requested by the context. The input will remain unchanged.
#!/usr/bin/perl
use strict;
use warnings;
use JavaScript::Packer;
my $packer = JavaScript::Packer->init();
open( UNCOMPRESSED, 'uncompressed.js' );
open( COMPRESSED, '>compressed.js' );
my $uncompressed = join( '', <UNCOMPRESSED> );
my $compressed = $packer->minify( $uncompressed, { compress => 'best' } );
print COMPRESSED $compressed;
close(UNCOMPRESSED);
close(COMPRESSED);
AUTHOR
Merten Falk, "<nevesenin at cpan.org>"
BUGS
Please report any bugs or feature requests through the web interface at http://github.com/nevesenin/javascript-packer-perl/issues
<http://github.com/nevesenin/javascript-packer-perl/issues>.
SUPPORT
You can find documentation for this module with the perldoc command.
perldoc JavaScript::Packer
COPYRIGHT &; LICENSE
Copyright 2008 - 2012 Merten Falk, all rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
perl v5.14.2 2012-03-02 JavaScript::Packer(3pm)
10-22-2013
