09-05-2011
deo_kaustubh --
Assume your Data is in data.txt ...
1. Save the CODE as a file, say foo.sh
2. chmod 755 foo.sh
3. ./foo.sh data.txt
The "$@" at the end of foo.sh will accept any number of files as input.
-- kjh
10 More Discussions You Might Find Interesting
1. UNIX for Dummies Questions & Answers
I have some .dat files that I cannot open and read the data. It is an awk program file, and my question would be to you all is there a way to convert this awk file to ascii text?
Thanks (10 Replies)
Discussion started by: ryangfm
10 Replies
2. Shell Programming and Scripting
Hi Friends,
I need your help.
I am not able to execute one awk program .If you can solve the following small program
then i can solve other one.
$ vi prg
#!/bin/awk -f
BEGIN {
# Print the squares from 1 to 10 the first way
i=1;
while (i <= 10) {
... (3 Replies)
Discussion started by: bikas_jena
3 Replies
3. UNIX for Dummies Questions & Answers
Hi all,
I need to grep the 3 characters from a file, and to fetch the corresponding words to that character. My file is in the following format..
The below text will be in the separate file....say file2.txt
ABC This is the first text.
DEF This is the second text.
GH1 9.8.7890
AB1... (1 Reply)
Discussion started by: sivakumar.rj
1 Replies
4. UNIX for Dummies Questions & Answers
:(Hi all,
I have a doubt in AWK program. I am writing an awk program which accepts a parameter as input and it should display the corresponding details.
if the country as "US" it should be displayed as "United States of America"
and the country as "IN" India should be displayed. How can I... (2 Replies)
Discussion started by: sivakumar.rj
2 Replies
5. Shell Programming and Scripting
Hi all,
I have the following problem and hope someone could help me.
I have 184 files, each with 5 columns (c1, c2, c3, c4, c5). I am only interrested in column 5, and would like to paste column 5 from all the 184 files into one file. I have tried the following with two files
awk... (20 Replies)
Discussion started by: awkliker
20 Replies
6. Shell Programming and Scripting
Hi
I have many problems with a script. I have a script that formats a text file but always prints the same error when i try to execute it
The code is that:
{
if (NF==17){
print $0
}else{
fields=NF;
all=$0;
while... (2 Replies)
Discussion started by: fate
2 Replies
7. Shell Programming and Scripting
Dear All,
facing problem to get data in different fields. SO i am using # to get the data..
please refer my code below...
BEGIN { FS=" " }
{
if ( $1 == "START" )
{
i = i+1;
SFILENAME = FILENAME
}
if ( substr($1,2,8) == "filename" )
... (1 Reply)
Discussion started by: arvindng
1 Replies
8. Shell Programming and Scripting
i have two files,
one looks like this (file1):
novelMiR_892 novelMiR_891,
novelMiR_852
novelMiR_893
novelMiR_1661
novelMiR_854
novelMiR_1210
novelMiR_1251
novelMiR_855
novelMiR_1252
novelMiR_897 novelMiR_2336,novelMiR_2335,and the second like this... (5 Replies)
Discussion started by: dietmar13
5 Replies
9. Shell Programming and Scripting
Hi All,
I have an AWK code snippet which I want to use in Perl. How can I achieve the same thing in perl? Here I am searching for a pattern in a file and from that matching line, I am extracting the 3rd column value and storing it in a variable which I later on use this value in a if condition.
... (2 Replies)
Discussion started by: sanzee007
2 Replies
10. Shell Programming and Scripting
Hi All ,
I have set of input files with one of the fields as below
File 1 -Field 1=BUDGET_CURR_FX
File 2 -Field 1=BUDGET_MTH_AVGFX
File 3 -Field 1=BUDGET_PREV
Now i need to include one extra field in the new file as below
Output File 1 -Field 1= BUDGET Field2=CURRENT_FX
Output File... (2 Replies)
Discussion started by: Hypesslearner
2 Replies
LEARN ABOUT MOJAVE
data::dumper::concise::sugar5.18
Data::Dumper::Concise::Sugar(3) User Contributed Perl Documentation Data::Dumper::Concise::Sugar(3)
NAME
Data::Dumper::Concise::Sugar - return Dwarn @return_value
SYNOPSIS
use Data::Dumper::Concise::Sugar;
return Dwarn some_call(...)
is equivalent to:
use Data::Dumper::Concise;
if (wantarray) {
my @return = some_call(...);
warn Dumper(@return);
return @return;
} else {
my $return = some_call(...);
warn Dumper($return);
return $return;
}
but shorter. If you need to force scalar context on the value,
use Data::Dumper::Concise::Sugar;
return DwarnS some_call(...)
is equivalent to:
use Data::Dumper::Concise;
my $return = some_call(...);
warn Dumper($return);
return $return;
If you need to force list context on the value,
use Data::Dumper::Concise::Sugar;
return DwarnL some_call(...)
is equivalent to:
use Data::Dumper::Concise;
my @return = some_call(...);
warn Dumper(@return);
return @return;
If you want to label your output, try DwarnN
use Data::Dumper::Concise::Sugar;
return DwarnN $foo
is equivalent to:
use Data::Dumper::Concise;
my @return = some_call(...);
warn '$foo => ' . Dumper(@return);
return @return;
If you want to output a reference returned by a method easily, try $Dwarn
$foo->bar->{baz}->$Dwarn
is equivalent to:
my $return = $foo->bar->{baz};
warn Dumper($return);
return $return;
If you want to format the output of your data structures, try DwarnF
my ($a, $c) = DwarnF { "awesome: $_[0] not awesome: $_[1]" } $awesome, $cheesy;
is equivalent to:
my @return = ($awesome, $cheesy);
warn DumperF { "awesome: $_[0] not awesome: $_[1]" } $awesome, $cheesy;
return @return;
If you want to immediately die after outputting the data structure, every Dwarn subroutine has a paired Ddie version, so just replace the
warn with die. For example:
DdieL 'foo', { bar => 'baz' };
DESCRIPTION
use Data::Dumper::Concise::Sugar;
will import Dwarn, $Dwarn, DwarnL, DwarnN, and DwarnS into your namespace. Using Exporter, so see its docs for ways to make it do something
else.
Dwarn
sub Dwarn { return DwarnL(@_) if wantarray; DwarnS($_[0]) }
$Dwarn
$Dwarn = &Dwarn
$DwarnN
$DwarnN = &DwarnN
DwarnL
sub Dwarn { warn Data::Dumper::Concise::Dumper @_; @_ }
DwarnS
sub DwarnS ($) { warn Data::Dumper::Concise::Dumper $_[0]; $_[0] }
DwarnN
sub DwarnN { warn '$argname => ' . Data::Dumper::Concise::Dumper $_[0]; $_[0] }
Note: this requires Devel::ArgNames to be installed.
DwarnF
sub DwarnF (&@) { my $c = shift; warn &Data::Dumper::Concise::DumperF($c, @_); @_ }
TIPS AND TRICKS
global usage
Instead of always just doing:
use Data::Dumper::Concise::Sugar;
Dwarn ...
We tend to do:
perl -MData::Dumper::Concise::Sugar foo.pl
(and then in the perl code:)
::Dwarn ...
That way, if you leave them in and run without the "use Data::Dumper::Concise::Sugar" the program will fail to compile and you are less
likely to check it in by accident. Furthmore it allows that much less friction to add debug messages.
method chaining
One trick which is useful when doing method chaining is the following:
my $foo = Bar->new;
$foo->bar->baz->Data::Dumper::Concise::Sugar::DwarnS->biff;
which is the same as:
my $foo = Bar->new;
(DwarnS $foo->bar->baz)->biff;
SEE ALSO
You probably want Devel::Dwarn, it's the shorter name for this module.
perl v5.18.2 2013-12-31 Data::Dumper::Concise::Sugar(3)