03-01-2010
Hi Pludi,
Thank you very much for your reply. I have tried the following code:
HTML Code:
#!/usr/bin/perl -W
use strict;
use warnings;
while ( my $line = <DATA> ) {
my @cols = split / /, $line;
my ( $l, $r ) = ( 0, 0 );
for ( $l = 0 ; $l <= $#cols ; $l++ ) {
for ( $r = 0 ; $r <= $#cols ; $r++ ) {
print $cols[$l] - $cols[$r], " ";
}
}
print "\n";
}
While executing the file, i am getting the error message as follows:
HTML Code:
Name "main::DATA" used only once: possible typo at ./example.pl line 6.
readline() on unopened filehandle DATA at ./example.pl line 6.
Can you tell me, where is the mistake? As per the error message, in line 6 DATA has been used only once.
Expecting your reply and thanks in advance.
Warm regards
Fredrick.
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
I have looked through the forums and found many date / time manipulation tools, but cannot seem to find something that fits my needs for the following.
I have a log file with date time stamps like this:
Jun 21 17:21:52
Jun 21 17:24:56
Jun 21 17:27:59
Jun 21 17:31:03
Jun 21 17:34:07
Jun... (0 Replies)
Discussion started by: roadcyclist
0 Replies
2. UNIX for Dummies Questions & Answers
Hello,
I am in following situation.-
COUNT=`ls -l | wc -l`
echo $COUNT
---> 26
NO_OF_FILES=$COUNT-1
echo $NO_OF_FILES
---> 26-1
Here, I want the output to be 25. How could I do this. It seems simple, but I am not getting it. Please help me. (2 Replies)
Discussion started by: The Observer
2 Replies
3. Shell Programming and Scripting
I have two files:
file1.txt:
FS Total Used Free Used%
/u01 10000 8000 2000 80%
/u02 10000 8000 2000 80%
/u03 10000 8000 2000 80%
/u04 10000 8000 2000 80%
/u05 10000 8000 2000 80%
/u06 10000 8000 2000 80%
/u07 10000 8000 2000 80%
/u10 10000 5000 5000 50%
file2.txt:... (7 Replies)
Discussion started by: oabdalla
7 Replies
4. Shell Programming and Scripting
hi all,
how do i subract variables in shell ?? am trying to space out the headers and the output generated by the shell so they all line up :
currently the output is like this :
servers : users
server1 : 10
latestServer : 50
so i thought... (3 Replies)
Discussion started by: cesarNZ
3 Replies
5. Shell Programming and Scripting
i have a small awk script which prints the 5 columns of different o/p i want the 5th column subtracted from 100 and then display the result .. but i do not get the desired result .. I 'm using following script
awk '
BEGIN {
FS=""
RS="us"
}
{
... (3 Replies)
Discussion started by: fugitive
3 Replies
6. UNIX for Dummies Questions & Answers
Hello,
I have a file with 5 columns that looks like this:
A1BG chr19 + 58863335 58866549
A1BG chr19 - 58858171 58864865
A2LD1 chr13 - 101182417 101186056
A2LD1 chr13 - 101182417 101241046
A2M chr12 - 9220303 9268558
A2ML1 ... (5 Replies)
Discussion started by: wolf_blue
5 Replies
7. Shell Programming and Scripting
Hi everyone, I had a similar question a couple days ago but my problem has gotten significantly (to me anyway) more complex.
I have two files:
File 1:
0808 166 166 62 9 0
1000fights 1 1 2 1 0
100places2visit 2 2 2 2 0
10veronica91 167 167 3 1 0
11thgorgeous 346 346 3806 1461 122... (2 Replies)
Discussion started by: collards
2 Replies
8. Shell Programming and Scripting
Legends,
Please help me in , how do i subtract the variable values listed like below.
the first value of orig should be subtracted from first value of prev and so on.
san> echo $orig
346 316 340 239 410 107 291 139 128 230 167 147 159 159 172 116 110 260 177 0 177 169 168 186 165 366 195... (15 Replies)
Discussion started by: sdosanjh
15 Replies
9. Answers to Frequently Asked Questions
Hi,
I want to subtract 2 files and save the remaining text in another file. Lets say,
Hello
Happy //
Hi
*
Hungry
File2
Happy
Hi
Output
Hello (5 Replies)
Discussion started by: beginner_99
5 Replies
10. Shell Programming and Scripting
Hi Folks,
I have a file with 2 columns TAB delimited and I want to add '1' to the first column and subtract '-1' from the second column.
What I have tried so far is;
awk -F"\t" '{ $1-=1;$2+=1}1' OFS='\t' file
File
0623 0623
0624 0624
0643 0643
1059 1037
1037 1037
1038 1038... (2 Replies)
Discussion started by: pshields1984
2 Replies
LEARN ABOUT DEBIAN
html::auto
HTML::Auto(3pm) User Contributed Perl Documentation HTML::Auto(3pm)
NAME
HTML::Auto - automatic write HTML for common elements
VERSION
Version 0.04
SYNOPSIS
Simple example:
use HTML::Auto qw/matrix h v/;
my @cols = qw/c1 c2 c3 c4 c5/;
my @lines = qw/l1 l2 l3 l4 l5/;
my $data =
[ [1,2,3,4,5],
[6,7,8,9,0],
[1,1,1,1,1],
[2,2,2,2,2],
[3,3,3,3,3] ];
my $m = matrix(@cols,@lines,$data);
print v(
h($m,$m,$m),
h($m,$m),
);
Using attributes:
use HTML::Auto qw/matrix h v/;
my @cols = qw/c1 c2/;
my @lines = qw/l1 l2/;
my $data =
[
[
{v => 1, a => { style => 'background: green'}},
2
],
[
{v => 3, a => {class => 'foo'}},
{v => 4, a => {style => 'color: red'}}
]
];
my $m = matrix(@cols,@lines,$data);
print v(
h($m)
);
With mouse-over span:
use HTML::Auto qw/matrix h v/;
my @cols = qw/c1 c2/;
my @lines = qw/l1 l2/;
my $data =
[[1,2],
[3,
{ v=> 4,
more_info => "This is a pop-up!"
}]
];
my $m = matrix(@cols,@lines,$data);
print v(
h($m)
);
Passing additional CSS:
use HTML::Auto qw/matrix h v/;
my @cols = qw/c1 c2/;
my @lines = qw/l1 l2/;
my $data =
[
[
{v => 1, a => { class => 'warn'}},
2
],
[3,4]
];
my $options = { css => '.warn { background-color: yellow !important; }' };
my $m = matrix(@cols,@lines,$data,$options);
print v(
h($m)
);
SUBROUTINES
/METHODS
matrix
h
A function to allow horizontal composition.
v
A function to allow vertical composition.
AUTHOR
Nuno Carvalho, "<smash at cpan.org>" Andre Santos, "<andrefs at cpan.org>"
BUGS
Please report any bugs or feature requests to "bug-html-auto at rt.cpan.org", or through the web interface at
http://rt.cpan.org/NoAuth/ReportBug.html?Queue=HTML-Auto <http://rt.cpan.org/NoAuth/ReportBug.html?Queue=HTML-Auto>. I will be notified,
and then you'll automatically be notified of progress on your bug as I make changes.
SUPPORT
You can find documentation for this module with the perldoc command.
perldoc HTML::Auto
You can also look for information at:
o RT: CPAN's request tracker
http://rt.cpan.org/NoAuth/Bugs.html?Dist=HTML-Auto <http://rt.cpan.org/NoAuth/Bugs.html?Dist=HTML-Auto>
o AnnoCPAN: Annotated CPAN documentation
http://annocpan.org/dist/HTML-Auto <http://annocpan.org/dist/HTML-Auto>
o CPAN Ratings
http://cpanratings.perl.org/d/HTML-Auto <http://cpanratings.perl.org/d/HTML-Auto>
o Search CPAN
http://search.cpan.org/dist/HTML-Auto/ <http://search.cpan.org/dist/HTML-Auto/>
ACKNOWLEDGEMENTS
LICENSE AND COPYRIGHT
Copyright 2012 Project Natura.
This program is free software; you can redistribute it and/or modify it under the terms of either: the GNU General Public License as
published by the Free Software Foundation; or the Artistic License.
See http://dev.perl.org/licenses/ for more information.
perl v5.14.2 2012-06-05 HTML::Auto(3pm)