03-02-2012
Perl formatting.
I have a file which has following data:
Quote:
693t622, ZOMBIAC SERVICES, , 3267, N
985g367, DRUMBASH, , 2376, Y, 457
983y106, STEFFI, , 2344, N, 2345, B
And I want the following out of it:
Quote:
693t622, ZOMBIAC SERVICES, , 3267
985g367, DRUMBASH, , 2376
983y106, STEFFI, , 2344
So basically I want only the first four command separated fields and strip off the rest. How do I do it in perl?
I want only perl code and no shell code.
I can split it and try to do something, but the incoming data can have any number of comma separated fields so was thinking of a more better solution.
Thanks!!
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
have a simple text file as input.i have to print that file in paragraph format.whenevr it finds "\n" in the input text it should start printing in next paragraph in output file.also a fixed amount of space should be given before start writing in every paragraph.
the input and output file format... (5 Replies)
Discussion started by: avik1983
5 Replies
2. Shell Programming and Scripting
Hiho,
I've got a variable $sth = `du -sh /home/$whoami`; where $whoami is actually logged user.
I want to have only the size of this directory eg. 2,7G.
I know its lame, but anyway.. how to do it? (2 Replies)
Discussion started by: fenox
2 Replies
3. Shell Programming and Scripting
Hi,
I would like to modify an existing excel cell format to a custom format.
Is there a way to do it with out writing into a new excel file.
In-place editing?
Thanks (0 Replies)
Discussion started by: sandeep78
0 Replies
4. Shell Programming and Scripting
Hi,
I am getting the output from a PERL program but the output is all on different lines.
My code is
printf hOUT "%s\t%s\t%s\t%s\t%s\t%s",$M1_CTR, $M2_CTR, $M3_CTR, $M4_CTR, $M5_CTR, $M6_CTR;
Example:
My report (which I send via email) should look like this
Area 1 Area 2 ... (4 Replies)
Discussion started by: nurani
4 Replies
5. Shell Programming and Scripting
Hi Experts,
I am using following format for Perl SSH2 commands.
#!/usr/bin/perl -w
use Net::SSH::Perl;
use POSIX;
use Sys::Hostname;
use Term::ANSIColor qw(:constants);
use strict;
#my $host="10.128.0.214";
my @nodeip = ("10.128.0.214","10.128.0.215") ;
my %node =... (7 Replies)
Discussion started by: mtomar
7 Replies
6. Shell Programming and Scripting
my code:
$dateformat = yyyy_mm_dd
if($dateformat =~ m/yyyy/i)
{
print ("found");
$yyyy = strftime "%Y", localtime;
print ("year is $yyyy\n");
$dateformat =~ s/yyyy/$yyyy/;
print ("new date format is $dateformat\n");
}
elsif($dateformat =~ m/yy/i)
{
print ("found");
$yy = strftime "%y",... (4 Replies)
Discussion started by: irudayaraj
4 Replies
7. UNIX for Dummies Questions & Answers
Could you please tell the meaning of Below mentioned perl script lines:
format OWNER_TOTAL =
@< Owner Code @<<<<<<total: @#######.## @#######.## @#######.## @#######.## @#######.## @#######.## @#######.## @#######.## @#######.## @#######.## @######
#.##
$prev_cust_type, $prev_owner_code,... (2 Replies)
Discussion started by: vinothrajan55
2 Replies
8. Shell Programming and Scripting
Dear all,
Pzl let me know what is the syntax for converting the columns format to text as i have lots of values for but when i put these values in xls sheet the values are automatically converted to
and one more question i have is how to call values from shell script into perl script
eg.
... (3 Replies)
Discussion started by: sagar_1986
3 Replies
9. UNIX for Advanced & Expert Users
Good day.
I am trying to change the output on my date so that I can get the month as a numeric value.
TODAY=`perl -e 'print localtime(time()) . "\n" '`
Here are the results from the above perl statement
Thu Feb 11 13:16:40 2016
I am not sure of the syntax to get a date more like... (2 Replies)
Discussion started by: ziggy6
2 Replies
10. Shell Programming and Scripting
Experts,
I'm having problems with a portion of my perl script.
I have a perl array that contains the following:
Port1,circuit3,2;4
Port2,circuit1,9;6
Port3,circuit2,12;5
Port4,circuit4,11;10;3
Port5,circuit7,8;7;1
I'm trying to produce the following output: (3 Replies)
Discussion started by: timj123
3 Replies
LEARN ABOUT DEBIAN
shell-quote
SHELL-QUOTE(1p) User Contributed Perl Documentation SHELL-QUOTE(1p)
NAME
shell-quote - quote arguments for safe use, unmodified in a shell command
SYNOPSIS
shell-quote [switch]... arg...
DESCRIPTION
shell-quote lets you pass arbitrary strings through the shell so that they won't be changed by the shell. This lets you process commands
or files with embedded white space or shell globbing characters safely. Here are a few examples.
EXAMPLES
ssh preserving args
When running a remote command with ssh, ssh doesn't preserve the separate arguments it receives. It just joins them with spaces and
passes them to "$SHELL -c". This doesn't work as intended:
ssh host touch 'hi there' # fails
It creates 2 files, hi and there. Instead, do this:
cmd=`shell-quote touch 'hi there'`
ssh host "$cmd"
This gives you just 1 file, hi there.
process find output
It's not ordinarily possible to process an arbitrary list of files output by find with a shell script. Anything you put in $IFS to
split up the output could legitimately be in a file's name. Here's how you can do it using shell-quote:
eval set -- `find -type f -print0 | xargs -0 shell-quote --`
debug shell scripts
shell-quote is better than echo for debugging shell scripts.
debug() {
[ -z "$debug" ] || shell-quote "debug:" "$@"
}
With echo you can't tell the difference between "debug 'foo bar'" and "debug foo bar", but with shell-quote you can.
save a command for later
shell-quote can be used to build up a shell command to run later. Say you want the user to be able to give you switches for a command
you're going to run. If you don't want the switches to be re-evaluated by the shell (which is usually a good idea, else there are
things the user can't pass through), you can do something like this:
user_switches=
while [ $# != 0 ]
do
case x$1 in
x--pass-through)
[ $# -gt 1 ] || die "need an argument for $1"
user_switches="$user_switches "`shell-quote -- "$2"`
shift;;
# process other switches
esac
shift
done
# later
eval "shell-quote some-command $user_switches my args"
OPTIONS
--debug
Turn debugging on.
--help
Show the usage message and die.
--version
Show the version number and exit.
AVAILABILITY
The code is licensed under the GNU GPL. Check http://www.argon.org/~roderick/ or CPAN for updated versions.
AUTHOR
Roderick Schertler <roderick@argon.org>
perl v5.8.4 2005-05-03 SHELL-QUOTE(1p)