You asked the script to print out the file handle every time it encountered a valid record, so it did
Try this code, it takes a list of input file names as arguments on the command line.
Code:
#!/usr/bin/perl
use strict;
use warnings;
my $out_file = 'output.txt';
open (my $out_fh,'>',$out_file)||die "Couldn't open file $out_file:\n\t$!";
for my $in_file (@ARGV){
open(my $in_fh, '<', $in_file or die "Couldn't open file $in_file:\n\t $!";
while (<$in_fh>){
chomp;
if ($_ =~ /^Customer ID: Yes/){
my $line = readline($in_fh);
print $out_fh $line;
}
}
close $in_fh or die "Could not close file $in_file: $!";
}
close $out_fh or die "Could not close file $out_file: $!";
How exactly do you wish to present the data as a spreadsheet?
Last edited by Skrynesaver; 12-20-2011 at 10:16 AM..
I know this must be really easy, but i can't get it to work
I've got a perl script, with a file.
I want to print an empty line, and the following doesn't seem to work:
print nameoffile "\n"
thanks for your help!! (3 Replies)
Hi
I have a log file (say log.txt). I have to search for a line which has the string ( say ERROR) in the log file and copy 15 lines after this into another file (say error.txt). Can someone give me the code and this has to be in PERL
Thanks in advance
Ammu (3 Replies)
Hello,
I'm trying to create a program in perl called myfind.pl;
To use the program:
(at the command line)$ program.pl keyword filename
note: the keyword is any word or regular expression
and it should display the result just like when you 'cat' the file name but with the keyword in... (2 Replies)
I am trying to find a way to utilise the full potential of my cpu cores and memory on my windows machine.
Now, I am quite familiar with grep, however, running a Unix based OS is not an option right now.
Unfortunately, the 32 bit grep for windows that I am running, I cannot run multiple... (1 Reply)
so in unix this command works works and shows me a list of directories
find . -name \*.xls -exec dirname {} \; | sort -u | > list.txt
but when i try running a perl script to run this command
my $query = 'find . -name \*.xls -exec dirname {} \; | sort -u | > list.txt';... (2 Replies)
Hi,
I would like to know how do I print the line # in a script. My requirement is, I have a script which is about ~5000 lines long. If there are any errors happen I just exit. And I would like to add the line # of the script where the error happened.
Thanks, (6 Replies)
I'm having a script which outputs four different attributes A, B, C, D for a list of users.
I want to insert expression such that once the output is generated for first user, output for next user should be printed in new line.
Please help. (4 Replies)
Florida State University, Tallahassee, FL, USA, Dr. Whalley, COP4342 Unix Tools.
This program takes much of my previous assignment but adds the functionality of printing the concatenated line numbers found within the input.
Sample input from <> operator:
Hello World
This is hello
a sample... (2 Replies)
hi All ,
I am having a large file with lots of modules as shown below
###############################################
module KKK
kksd
kskks
jsn;lsm
jsnlsn;
Ring
jjsjsj
kskmsm
jjs
endmodule
module llll
1kksd11
k232skks
j33sn;l55sm (6 Replies)
Need assistance in getting a shell program .
I have csv file and each line has comma separated number. I wanted to take of the comas and print each number in each line . below example. Appreicate your help
Row with number
... (14 Replies)
Discussion started by: ajayram_arya
14 Replies
LEARN ABOUT SUSE
html::formatrtf
HTML::FormatRTF(3) User Contributed Perl Documentation HTML::FormatRTF(3)NAME
HTML::FormatRTF - Format HTML as RTF
SYNOPSIS
use HTML::FormatRTF;
my $out_file = "test.rtf";
open(RTF, ">$out_file")
or die "Can't write-open $out_file: $!
Aborting";
print RTF HTML::FormatRTF->format_file(
'test.html',
'fontname_headings' => "Verdana",
);
close(RTF);
DESCRIPTION
HTML::FormatRTF is a class for objects that you use to convert HTML to RTF. There is currently no proper support for tables or forms.
This is a subclass of HTML::Formatter, whose documentation you should consult for more information on the new, format, format_file
You can specify any of the following parameters in the call to "new", "format_file", or "format_string":
lm Amount of extra indenting to apply to the left margin, in twips (twentieths of a point). Default is 0.
So if you wanted the left margin to be an additional half inch larger, you'd set "lm => 720" (since there's 1440 twips in an inch). If
you wanted it to be about 1.5cm larger, you'd set "lw => 850" (since there's about 567 twips in a centimeter).
rm Amount of extra indenting to apply to the left margin, in twips (twentieths of a point). Default is 0.
normal_halfpoint_size
This is the size of normal text in the document, in half-points. The default value is 22, meaning that normal text is in 11 point.
header_halfpoint_size
This is the size of text used in the document's page-header, in half-points. The default value is 17, meaning that normal text is in
7.5 point. Currently, the header consists just of "p.pagenumber" in the upper-right-hand corner, and cannot be disabled.
head1_halfpoint_size ... head6_halfpoint_size
These control the font size of each heading level, in half-twips. For example, the default for head3_halfpoint_size is 25, meaning
that HTML "<h3>...</h3>" text will be in 12.5 point text (in addition to being underlined and in the heading font).
codeblock_halfpoint_size
This controls the font size (in half-points) of the text used for "<pre>...</pre>" text. By default, it is 18, meaning 9 point.
fontname_body
This option controls what font is to be used for the body of the text -- that is, everything other than heading text and text in
pre/code/tt elements. The default value is currently "Times". Other handy values I can suggest using are "Georgia" or "Bookman Old
Style".
fontname_code
This option controls what font is to be used for text in pre/code/tt elements. The default value is currently "Courier New".
fontname_headings
This option controls what font name is to be used for headings. You can use the same font as fontname_body, but I prefer a sans-serif
font, so the default value is currently "Arial". Also consider "Tahoma" and "Verdana".
document_language
This option controls what Microsoft language number will be specified as the language for this document. The current default value is
1033, for US English. Consult an RTF reference for other language numbers.
hr_width
This option controls how many underline characters will be used for rendering a "<hr>" tag. Its default value is currently 50. You can
usually leave this alone, but under some circumstances you might want to use a smaller or larger number.
no_prolog
If this option is set to a true value, HTML::FormatRTF will make a point of not emitting the RTF prolog before the document. By
default, this is off, meaning that HTML::FormatRTF will emit the prolog. This option is of interest only to advanced users.
no_trailer
If this option is set to a true value, HTML::FormatRTF will make a point of not emitting the RTF trailer at the end of the document.
By default, this is off, meaning that HTML::FormatRTF will emit the bit of RTF that ends the document. This option is of interest only
to advanced users.
SEE ALSO
HTML::Formatter, RTF::Writer
COPYRIGHT
Copyright (c) 2002 Sean M. Burke. All rights reserved.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
This program is distributed in the hope that it will be useful, but without any warranty; without even the implied warranty of
merchantability or fitness for a particular purpose.
AUTHOR
Sean M. Burke "<sburke@cpan.org>"
perl v5.12.1 2004-06-02 HTML::FormatRTF(3)
12-20-2011
