#!/usr/local/bin/perl
use strict;
use warnings;
my $infile='file.txt';
my $count=1;
my $outfile="$infile-section_$count.txt";
my @arr;
sub create_file {
open(OUT,">$outfile") or die "Error with outfile: $!\n";
print OUT @arr;
close(OUT);
@arr=();
$count++;
$outfile="$infile-section_$count.txt";
}
open(IN,$infile) or die "Error with infile $infile: $!\n";
my @data=<IN>;
close(IN);
foreach my $line (@data) {
chomp($line);
if ($line =~ /head/) {
push @arr, "$line\n";
next;
}
elsif ($line !~ /end/) {
push @arr, "$line\n";
next;
}
else {
push @arr, "$line\n";
create_file();
}
}
Code:
$ ./cutsections.pl
$ ls file.txt-*
file.txt-section_1.txt file.txt-section_2.txt
$
$ cat file.txt-section_1.txt
head
1
2
3
4
end
$ cat file.txt-section_2.txt
head
5
6
7
8
9
end
$
Last edited by pseudocoder; 06-23-2010 at 08:38 PM..
This User Gave Thanks to pseudocoder For This Post:
Hi,
I have the following, it doesn't work and I know it's crap code.
The objective is to split a file with a givin number of codes such as:
01,02,03,...,99
Then return all records with each seperate identifier in a new file.
The files being split have lrecl=500, recfm=F, and I... (4 Replies)
Hi,
I have file: data.log.1
### s1
main.build.3495
main.build.199
main.build.3408
###s2
main.build.3495
main.build.3408
main.build.199
I want to read this file and store in two arrays in Perl.
I have following command, which is working fine on command prompt.
perl -n -e... (1 Reply)
Hi all
I have written Perl script to swap the strings in the second a third column from a text file.
My input file format is :
the|empty|the|det lake|empty|lake|conj_and was|empty|was|auxpass drained|empty|drained|conj_and birds|empty|bird|s|nn
The expected output file format is... (11 Replies)
I have a 30 GB XMl file which looks like this:
<page>
<title>APRIL</title>
.........(text contents that I need to extract and store in 1.dat including the <title> tag)
</page>
<page>
<title>August</title>
....(text contents that I need to store in 2.dat including the <title> tag)
</page>... (13 Replies)
Dear all,
I have a big file:2879(rows)x400,170 (columns) like below. I 'd like to split the file into small pieces:2879(rows)x2000(columns) per file (the last small piece will be 2879x170.
So far, I only know how to create one samll piece at one time. But actually I need to repeat this work... (6 Replies)
I am a newbie and what I have is a captured file of content. I want to be able to grab 2 pieces of data, multiple times and print them to the screen.
DataFile
owner: locke
user: fun
data size: 60
location: Anaheim
owner: david
user: work
data size: 80
location: Orange
my script... (2 Replies)
I had a text file(comma seperated values) which contains as below
196237,ram,25-May-06,ram.kiran@xyz.com,204183,Pavan,4-Jun-07,Pavan.Desai@xyz.com,237107,ram Chandra,15-Mar-10,ram.krishna@xyz.com ... (3 Replies)
I do have an xml sheet as below where I need the perl script to filter only the hyperlink tags.
<cols><col min="1" max="1" width="30.5703125" customWidth="1"/><col min="2" max="2" width="7.140625" bestFit="1" customWidth="1"/>
<col min="3" max="3" width="32.28515625" bestFit="1"... (3 Replies)
Hi,
I would like to split single fine into two array ..
Example: file.txt
--------------Installation --------------------
#GXTOOL=GxTools-20130501.tar.gz
GCSS=GExpLinux-BE-3700.0.12.37.tar.gz
TOP=TOPLinux-BE-3700.0.6.21.tar.gz
GHDER=GHDERLinux-BE-3700.0.6.20.tar.gz... (2 Replies)
please help to break a file into smaller pieces with same search string and delete the matched lines.
like i have a below file
<expression>
some text
........
..........
</expression>
<expression>
some text
........
..........
</expression>
<expression>
some text
........... (11 Replies)
Discussion started by: nadeemrafikhan
11 Replies
LEARN ABOUT REDHAT
ps2epsi
PS2EPSI(1) Ghostscript Tools PS2EPSI(1)NAME
ps2epsi - generate conforming Encapsulated PostScript
SYNOPSIS
ps2epsi infile.ps [ outfile.epsi ] (Unix)
ps2epsi infile.ps [ outfile.epi ] (DOS)
DESCRIPTION
ps2epsi uses gs(1) to process a PostScript(tm) file and generate as output a new file which conforms to Adobe's Encapsulated PostScript
Interchange (EPSI) format. EPSI is a special form of encapsulated PostScript (EPS) which adds to the beginning of the file in the form of
PostScript comments a bitmapped version of the final displayed page. Programs which understand EPSI (usually word processors or DTP pro-
grams) can use this bitmap to give a preview version on screen of the PostScript. The displayed quality is often not very good (e.g., low
resolution, no colours), but the final printed version uses the real PostScript, and thus has the normal PostScript quality.
USAGE
On Unix systems invoke ps2epsi like this:
ps2epsi infile.ps [ outfile.epsi ]
where "infile.ps" is the input file and "outfile.epsi" is the resulting EPSI file. If the output filename is omitted, it is generated from
the input filename. When a standard extension (".ps", ".cps", ".eps" or ".epsf") is used, it is replaced with the output extension
".epsi". On DOS systems the command is:
ps2epsi infile.ps outfile.epi
where "infile.ps" is the original PostScript file, and "outfile.epi" is the name of the output file.
LIMITATIONS
Not every PostScript file can be encapsulated successfully, because there are restrictions on what PostScript constructs a correct encapsu-
lated file may contain. ps2epsi does a little extra work to try to help encapsulation, and it automatically calculates the bounding box
required for all encapsulated PostScript files, so most of the time it does a pretty good job. There are certain to be cases, however,
where the encapsulation does not work because of the content of the original PostScript file.
COMPATIBILITY
The Framemaker DTP system is one application which understands EPSI files, and ps2epsi has been tested on a number of PostScript diagrams
from a variety of sources, using Framemaker 3.0 on a Sun workstation. Framemaker on other platforms should be able to use these files,
although I have not been able to test this.
FILES
ps2epsi Unix shell script
ps2epsi.ps the Ghostscript program which does the work
SEE ALSO
gs (1)
VERSION
This document was last revised for Ghostscript version 7.05. However, the content may be obsolete, or inconsistent with ps2epsi.txt.
AUTHOR
George Cameron
7.05 22 April 2002 PS2EPSI(1)