04-24-2020
Ok, where exactly are stuck?
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
Input file:
Germany 10 500 5000
Germany 20 500 5000
Germany 50 10 500
England 5 10 25
USA 30 25 55
USA 20 35 90
Japan 2 5 60
Singapore 50 30 90
Singapore 150 230 290
Output file:
Germany 10 500 5000
Germany 20 500 5000
Germany 50 10 500
England 5 10 25 (7 Replies)
Discussion started by: patrick87
7 Replies
2. Shell Programming and Scripting
Looks at the most efficient way to add up the column of data based off of the rows.
Random data
Name-Number-ID
Sarah-2.0-15
Bob-6.3-15
Sally-1.0-10
James-1.0-10
Scotty-10.7-15
So I would select all those who have ID = 15 and then add up total number
read - p "Enter ID number" Num
... (3 Replies)
Discussion started by: Ironguru
3 Replies
3. Ubuntu
Hi All
I need to add a column on my existing data file. I know similar posts are there but none of them were meeting my requirement. My input is
1.20 3.44 4.88
5.11 4.99 3.22
1.89 3.89 2.90
Desired output
1 1.20 3.44 4.88
2 5.11 4.99 3.22
3 1.89 3.89 2.90
I will... (2 Replies)
Discussion started by: mahbub03
2 Replies
4. Emergency UNIX and Linux Support
Hi Experts,
I am trying to add one variable value as the first value in a file speparated by "" (space) delimiter. Can you please let me know how I can do this using bash script.
Following is my file.
1635 ABCD 3m9ka COMPLETE
0526 AJAY 3m1da COMPLETE
0419 INDIA 3m3zi INCOMPLETE
The... (3 Replies)
Discussion started by: ajaypatil_am
3 Replies
5. Shell Programming and Scripting
hi all Please assist i need to add current date as data to load to a database:
the script is as follow:
#!/bin/ksh
DIR=/export/home/yani_m/scripts/scrip_out_put/
DIR2=/export/home/yani_m/scripts/scrip_out_put/calc/
Date=$1
File22="disk_"$Date
Server=$2
iofiles=$DIR"/*"$Date"*_Ynr.dat"... (4 Replies)
Discussion started by: LucyYani
4 Replies
6. Shell Programming and Scripting
Hi,
I have a file where data is pipe separated.First i want to sort the file content by date . Then i want to pick up the records based on the first column which should be unique and not have duplicates.
NYSE|yyyrrrddd|toronto|isin|ticker|2013-05-15... (2 Replies)
Discussion started by: samrat dutta
2 Replies
7. Shell Programming and Scripting
Hi
I have file with number status and date1 and date1 field,
want add a column today between column date1 and date2.
file1.txt
number status date1 date2
===== ==== === =====
34567 open 27/06/13 28/06/13
45678 open 27/06/13 28/06/13
43567 open 27/06/13 28/06/13 ... (1 Reply)
Discussion started by: vijay_rajni
1 Replies
8. UNIX for Advanced & Expert Users
Hi ,
I have a requirement to append file creation date to each row in a file for all the files in a directory.
Please help
Thanks,
Pavan (2 Replies)
Discussion started by: Pavan Ram B S
2 Replies
9. Shell Programming and Scripting
HI Guys,
I want add one extra Column base on 3rd Column .
Input :-
M204 MS204_154 :vsDataUeMe
M204 MS204_154 es:sMeasure 0
M204 MS204_154 es:90ilterCoe 9
M204 MS204_154 es:searchE9090ortTime 40
M204 MS204_154 es:servOrPrioI90HoTimer 4000
M204 MS204_154 es:ueMeajllls154545 TRUE... (5 Replies)
Discussion started by: pareshkp
5 Replies
10. UNIX for Beginners Questions & Answers
Hola
Como hacer:
C:\System\SystemRun.4gl
C:\System\SystemRunPrint.4gl
C:\System\SystemViews.4gl
Resultado:
SystemRun.4gl C:\System\SystemRun.4gl
SystemRunPrint.4gl C:\System\SystemRunPrint.4gl
SystemViews.4gl C:\System\SystemViews.4gl... (0 Replies)
Discussion started by: tlaloc
0 Replies
LEARN ABOUT DEBIAN
perlx::maybe
PerlX::Maybe(3pm) User Contributed Perl Documentation PerlX::Maybe(3pm)
NAME
PerlX::Maybe - return a pair only if they are both defined
SYNOPSIS
You once wrote:
my $bob = Person->new(
defined $name ? (name => $name) : (),
defined $age ? (age => $age) : (),
);
Now you can write:
my $bob = Person->new(
maybe name => $name,
maybe age => $age,
);
DESCRIPTION
Moose classes (and some other classes) distinguish between an attribute being unset and the attribute being set to undef. Supplying a
constructor arguments like this:
my $bob = Person->new(
name => $name,
age => $age,
);
Will result in the "name" and "age" attributes possibly being set to undef (if the corresponding $name and $age variables are not defined),
which may violate the Person class' type constraints.
(Note: if you are the author of the class in question, you can solve this using MooseX::UndefTolerant. However, some of us are stuck using
non-UndefTolerant classes written by third parties.)
To ensure that the Person constructor does not try to set a name or age at all when they are undefined, ugly looking code like this is
often used:
my $bob = Person->new(
defined $name ? (name => $name) : (),
defined $age ? (age => $age) : (),
);
or:
my $bob = Person->new(
(name => $name) x!!(defined $name),
(age => $age) x!!(defined $age),
);
A slightly more elegant solution is the "maybe" function:
"maybe $x => $y, @rest"
This function checks that $x and $y are both defined. If they are, it returns them both as a list; otherwise it returns the empty list.
If @rest is provided, it is unconditionally appended to the end of whatever list is returned.
The combination of these behaviours allows the following very sugary syntax to "just work".
my $bob = Person->new(
name => $name,
address => $addr,
maybe phone => $tel,
maybe email => $email,
unique_id => $id,
);
This function is exported by default.
BUGS
Please report any bugs to http://rt.cpan.org/Dist/Display.html?Queue=PerlX-Maybe <http://rt.cpan.org/Dist/Display.html?Queue=PerlX-Maybe>.
SEE ALSO
Syntax::Feature::Maybe.
MooseX::UndefTolerant, PerlX::Perform, Exporter.
AUTHOR
Toby Inkster <tobyink@cpan.org>.
COPYRIGHT AND LICENCE
This software is copyright (c) 2012 by Toby Inkster.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.
DISCLAIMER OF WARRANTIES
THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
perl v5.14.2 2012-05-03 PerlX::Maybe(3pm)