07-24-2008
When you do @raw_data = <DAT> the newlines are being removed as the lines are split (automatically) into the array elements. So when you print the data you can't just dump @raw_data... Try something like...
my $line
foreach $line (@raw_data) { print "$line\n"; }
You could also use shift or pop if you don't need the array again....
my $line
while ($line = pop @raw_data){ print "$line\n"; }
Shift takes from the top of the array (LIFO), pop from the bottom (FIFO)...
9 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
Hi All,
I have been trying to re-arrange the below data using AWK or Perl.
Can anybody help me ?
Thanks in advance.
Input:
111 222
333 444
AAA BBB
CCC DDD
555 666
777 888
EEE FFF
GGG HHH
Output: (6 Replies)
Discussion started by: Raynon
6 Replies
2. Shell Programming and Scripting
Hi
I have to convert the data in a file
*******
01-20-09 11:14AM 60928 ABC Valuation-2009.xls
01-20-09 11:16AM 55808 DEF GHI Equation-2009.xls
01-20-09 11:02AM 52736 ABC DF Valuation-2009.xls
01-20-09 11:06AM 89600 THE... (6 Replies)
Discussion started by: shekhar_v4
6 Replies
3. UNIX for Dummies Questions & Answers
How would I get this output to look
$ cat newfile
13114
84652
84148
LIKE THIS?:
13114,84652,84148
sed,cut awk?
syntax? (2 Replies)
Discussion started by: ddurden7
2 Replies
4. Shell Programming and Scripting
I want to check whether if any column data has any + , - , = prefixed to it then convert it in such a form that in excel its not read as formula.
echo "$DATA" | awk 'BEGIN { OFS="," } -F" " {print $1,$2,$3,$4,$5,$6,$7,$8.$9,$10,$11,$12}' (4 Replies)
Discussion started by: dinjo_jo
4 Replies
5. Shell Programming and Scripting
Hello everybody,
I have a file containing some statistics regarding CPU usage. The file has this syntax :
Fri Jul 16 14:27:16 EEST 2010
Cpu(s): 15.2%us, 1.4%sy, 0.0%ni, 82.3%id, 0.1%wa, 0.0%hi, 0.9%si, 0.0%st
Fri Jul 16 15:02:17 EEST 2010
Cpu(s): 15.3%us, 1.4%sy, 0.0%ni, 82.3%id, ... (9 Replies)
Discussion started by: spiriad
9 Replies
6. Shell Programming and Scripting
Hi,
I have data coming in like below. Not all data is like that, these are the problem records that is causing the ETL load to fail. Can you pls help me with combining theese broken records!
001800018000000guyMMAAY~acct name~acct type~~"address part 1
address... (8 Replies)
Discussion started by: varman
8 Replies
7. UNIX for Advanced & Expert Users
HI
I want to make it single row if start with braces i.e. { .Any idea
{1:XXX2460275191}{2:SEC00687921131112201641N}{3:{58910}}{4:
:R:GENL
:C::xx//xx1
:20C::yy//yy1
:2S:xxT}
{1:XXX2460275190}{2:SEC00687921131112201641y}{3:{58911}}{4:
:z:GENL
:v::xx//xx1
:10C::yy//yy1
:4S:xxT
... (2 Replies)
Discussion started by: mohan705
2 Replies
8. Shell Programming and Scripting
Hi,
I am generating the following output from my script.
Country,A,B,C,D,E,F
INDIA ,3755019,774604,484749,329838,7333612,442031
CHINA ,3716520,889197,530899,379754,6198475,355768
JAPAN ,52038,30462,231224,147275,1272,498
USA,9494,1130,0,0,15303,451... (5 Replies)
Discussion started by: karumudi7
5 Replies
9. Shell Programming and Scripting
Need assistance on the data extraction using awk
Below is the format and would like to extract the data in another format
-------------------------------------------------------------------------------------------------
Minimum Temperature (deg F )
DAY 1 2 3 4 5 6 7 8 9 10 11... (4 Replies)
Discussion started by: ajayram_arya
4 Replies
LEARN ABOUT DEBIAN
plack::app::cgibin
Plack::App::CGIBin(3pm) User Contributed Perl Documentation Plack::App::CGIBin(3pm)
NAME
Plack::App::CGIBin - cgi-bin replacement for Plack servers
SYNOPSIS
use Plack::App::CGIBin;
use Plack::Builder;
my $app = Plack::App::CGIBin->new(root => "/path/to/cgi-bin")->to_app;
builder {
mount "/cgi-bin" => $app;
};
# Or from the command line
plackup -MPlack::App::CGIBin -e 'Plack::App::CGIBin->new(root => "/path/to/cgi-bin")->to_app'
DESCRIPTION
Plack::App::CGIBin allows you to load CGI scripts from a directory and convert them into a PSGI application.
This would give you the extreme easiness when you have bunch of old CGI scripts that is loaded using cgi-bin of Apache web server.
HOW IT WORKS
This application checks if a given file path is a perl script and if so, uses CGI::Compile to compile a CGI script into a sub (like
ModPerl::Registry) and then run it as a persistent application using CGI::Emulate::PSGI.
If the given file is not a perl script, it executes the script just like a normal CGI script with fork & exec. This is like a normal web
server mode and no performance benefit is achieved.
The default mechanism to determine if a given file is a Perl script is as follows:
o Check if the filename ends with ".pl". If yes, it is a Perl script.
o Open the file and see if the shebang (first line of the file) contains the word "perl" (like "#!/usr/bin/perl"). If yes, it is a Perl
script.
You can customize this behavior by passing "exec_cb" callback, which takes a file path to its first argument.
For example, if your perl-based CGI script uses lots of global variables and such and are not ready to run on a persistent environment, you
can do:
my $app = Plack::App::CGIBin->new(
root => "/path/to/cgi-bin",
exec_cb => sub { 1 },
)->to_app;
to always force the execute option for any files.
AUTHOR
Tatsuhiko Miyagawa
SEE ALSO
Plack::App::File CGI::Emulate::PSGI CGI::Compile Plack::App::WrapCGI
See also Plack::App::WrapCGI if you compile one CGI script into a PSGI application without serving CGI scripts from a directory, to remove
overhead of filesystem lookups, etc.
perl v5.14.2 2011-11-02 Plack::App::CGIBin(3pm)