05-12-2009
Hi
Could anybody help me? I got this below code but its not working:
#!/usr/bin/perl
#
use strict;
my ($line, $nr);
my $thebigfile = "intxt.txt"; # input file location
#my $log = "$\.v"; # output files basename
# open input file
open(INFILE, "<$thebigfile");
foreach $line (<INFILE>) { # for each line
if( $line =~ /^module[" "]+[0-9]+[a-z]+\($/ ) {
$nr = $line;
$nr =~ s/^module//;
$nr =~ s/\(//;
close(OUTFILE);
open(OUTFILE, ">$nr\.v");
}
print OUTFILE $line;
}
close OUTFILE;
close INFILE;
10 More Discussions You Might Find Interesting
1. UNIX for Advanced & Expert Users
Hello,
i have a very big file that has more then 80 MBytes (100MBytes). So with my CVS Application I cannot commit this file (too Big) because it must have < 80 MBytes.
How can I split this file into two others files, i think the AIX Unix command :
split -b can do that, buit how is the right... (2 Replies)
Discussion started by: steiner
2 Replies
2. Shell Programming and Scripting
Greeting to all.
I have big text file that I would like to segment into many smaller files. Each file should be maximum 10 000 lines.
The file is called time.txt. after the execution of the file I would like to have.
time_01.txt, time_02, txt, ...,time_n.txt
Can anybody help.
Br. (2 Replies)
Discussion started by: flash80
2 Replies
3. Shell Programming and Scripting
Hi,
I have 2 files
format of file 1 is:
a1
b2
a2
c2
d1
f3
format of file 2 is (tab delimited):
a1 1.2 0.5 0.06 0.7 0.9 1 0.023
a3 0.91 0.007 0.12 0.34 0.45 1 0.7
a2 1.05 2.3 0.25 1 0.9 0.3 0.091
b1 1 5.4 0.3 9.2 0.3 0.2 0.1
b2 3 5 7 0.9 1 9 0 1
b3 0.001 1 2.3 4.6 8.9 10 0 1 0... (10 Replies)
Discussion started by: Lucky Ali
10 Replies
4. Shell Programming and Scripting
hi Guys
i need some help here..
i have a file which has > 800,000 lines in it. I need to split this file into smaller files with 25000 lines each.
please help
thanks (1 Reply)
Discussion started by: sitaldip
1 Replies
5. Shell Programming and Scripting
Hi,
I have a big text file with m columns and n rows. The format is like:
STF123450001000200030004STF123450005000600070008STF123450009001000110012
STF234560345002208330154STF234590705620600070080STF234567804094562357688
STF356780001000200030004STF356780005000600070080STF356780800094562657687... (2 Replies)
Discussion started by: wintersnow2011
2 Replies
6. Shell Programming and Scripting
Help needed urgently please.
I have a large file - a few hundred thousand lines.
Sample
CP START ACCOUNT
1234556
name 1
CP END ACCOUNT
CP START ACCOUNT
2224444
name 1
CP END ACCOUNT
CP START ACCOUNT
333344444
name 1
CP END ACCOUNT
I need to split this file each time "CP START... (7 Replies)
Discussion started by: frustrated1
7 Replies
7. HP-UX
Hi HP-admins,
I have 120GB file on HP-UX and need to split to 4GB pieces and join them on Windows.
As I don't want to use zipsplit, tried to use split command and join on windows using "copy /b" but it doesn't work (It merges and creates new file but file is corrupt)
What is the correct... (6 Replies)
Discussion started by: prvnrk
6 Replies
8. UNIX for Dummies Questions & Answers
hi ,
I have a requirement
input file:
1 1111111111111 108
1 1111111111111 109
1 1111111111111 109
1 1111111111111 110
1 1111111111111 111
1 1111111111111 111
1 1111111111111 111
1 1111111111111 112
1 1111111111111 112
1 1111111111111 112
The output should be, (19 Replies)
Discussion started by: mechvijays
19 Replies
9. UNIX for Dummies Questions & Answers
input file:
AD,00,--,---,---,---,---,---,---,--,--,---
AM,000,---,---,---,---,---,---
AR, ,---,--,---,---
AA,---,---,---,---
AT,---
AU,---,---,---
AS,---,---
AP,---,---,---
AI,---
AD,00,---,---,---, ,---,---,---,---,---,---
AM,000,---,---,---
AR,... (6 Replies)
Discussion started by: kcdg859
6 Replies
10. UNIX for Beginners Questions & Answers
Dears,
Need you help with the below file manipulation. I want to split the file into 8 smaller files but without cutting/disturbing the entries (meaning every small file should start with a entry and end with an empty line). It will be helpful if you can provide a one liner command for this... (12 Replies)
Discussion started by: Kamesh G
12 Replies
LEARN ABOUT DEBIAN
css::minifier
CSS::Minifier(3pm) User Contributed Perl Documentation CSS::Minifier(3pm)
NAME
CSS::Minifier - Perl extension for minifying CSS
SYNOPSIS
To minify a CSS file and have the output written directly to another file
use CSS::Minifier qw(minify);
open(INFILE, 'myStylesheet.css') or die;
open(OUTFILE, 'myStylesheet.css') or die;
minify(input => *INFILE, outfile => *OUTFILE);
close(INFILE);
close(OUTFILE);
To minify a CSS string literal. Note that by omitting the outfile parameter a the minified code is returned as a string.
my minifiedCSS = minify(input => 'div {font-family: serif;}');
To include a copyright comment at the top of the minified code.
minify(input => 'div {font-family: serif;}', copyright => 'BSD License');
The "input" parameter is manditory. The "output" and "copyright" parameters are optional and can be used in any combination.
DESCRIPTION
This module removes unnecessary whitespace from CSS. The primary requirement developing this module is to not break working stylesheets: if
working CSS is in input then working CSS is output. The Mac/Internet Explorer comment hack will be minimized but not stripped and so will
continue to function.
This module understands space, horizontal tab, new line, carriage return, and form feed characters to be whitespace. Any other characters
that may be considered whitespace are not minimized. These other characters include paragraph separator and vertical tab.
For static CSS files, it is recommended that you minify during the build stage of web deployment. If you minify on-the-fly then it might be
a good idea to cache the minified file. Minifying static files on-the-fly repeatedly is wasteful.
EXPORT
None by default.
Exportable on demand: minifiy()
SEE ALSO
This project is developed using an SVN repository. To check out the repository svn co http://dev.michaux.ca/svn/random/CSS-Minifier
You may also be interested in the JavaScript::Minifier module also available on CPAN.
AUTHORS
Peter Michaux, <petermichaux@gmail.com>
COPYRIGHT AND LICENSE
Copyright (C) 2007 by Peter Michaux
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.6 or,
at your option, any later version of Perl 5 you may have available.
perl v5.12.3 2007-08-03 CSS::Minifier(3pm)