#!/usr/bin/perl
use strict;
use warnings;
open my $fh, '<', 'CF_Resourcing' or die "Can't open file: $!\n";
while (<$fh>) {
my @fields = split(/\t/);
print "@fields[0,1,3,4,5,6,21,22,23,24,25,26,27,28,29,30,31,32,33]\n";
}
Last edited by Franklin52; 12-30-2014 at 07:59 AM..
Reason: Please use code tags
i have this file which has the following contents:
,-0.3000 ,-0.3000 ,-0.3000
,-0.9000 ,-0.9000 ,-0.9000
i would like to get this:
-0.3-0.9-0.3-0.9-0.3-0.9
so far i am trying:
awk '{for(i=1; i<=NF; i++) {printf("%f\n",$i)}}' test1 > test2
any help... (4 Replies)
i want sort columns with headers based on another file headers
file1
eg: i'm having an empty file with only coumn names like
lastname firstname title expirydate stlcno status etc...
another file with same column names and some other as well but in different order...
file2
eg:firstname... (2 Replies)
Hi All,
i have a excel sheet with two columns as below.
column1 column2
100 100
200 300
300 400
400 400
500 600
i need to compare the values these two columns and the output should be printed in the third column...if these values are equal the output should be green and if these... (2 Replies)
hi,
I want to store from 102 character to 128 character to a variable of header record which can be identified as 'HDR' which is the first 3 characters in the same line of a same.txt file.
Please advise.
Thanks (4 Replies)
Hi All,
Thanks in advance
File is generated with following format
31000000.xml to 48999999.xml
74000000.xml to 88999999.xml
Above range should be find and moved into the folder named abc
and below is another range should should be find and moved into folder named xyz
... (1 Reply)
Dear all,
I have one file (see below) with more then 100 columns and 2500 rows, and need only column which has GType in label with Alphabets, please help me to remove these columns with numbers.
input file is
n.201.GType n-201.Theta n-201.R n_1.GType n_1.Theta n_1.R... (6 Replies)
Hi,
I have log file which rolls out every second which is as this.
HttpGenRequest - -<!--OXi dbPublish--> <created="2014-03-24 23:45:37" lastMsgId="" requestTime="0.0333"> <response request="getOutcomeDetails" code="114" message="Request found no matching data" debug="" provider="undefined"/>... (3 Replies)
Hi All...
I am in need of few columns from a log file.. in .xls file... below is what i have tried.
my log file has 16 colums with " ; " as delimiter, but i need randomn columns 1 2 3 4 5 6 10 11 16 in an excel.
I tried to awk the columns with delimiter ; and it worked, below is the log... (5 Replies)
Hi All,
I have below perl script which writes xml from .xls file.
Now i want to add below two conditions in this script :
1. to check if the the input .xls file has ony two columns , if more tahn two columns then script should pop up an error.
2. If there are two columns , then first column... (4 Replies)
So I have a file1.txt that is tab delimited:
e.g.
FIELD1 FIELD2 FIELD3 FIELD4 FIELD5
9545641 123 "Neighbor and Labrador,Canada" 54895 'CANADA'
9456465 456 "Neighbor and Labrador,Canada" 54893 'CANADA'
8746512 789 "Neighbor and... (11 Replies)
Discussion started by: dan139
11 Replies
LEARN ABOUT DEBIAN
javascript::packer
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)