Perl supports the "backtick" operator, just as in the shell. the only difference is that Perl doesn't convert linefeeds to spaces nor squeeze extra spaces. So:
is probably what you want.
hi all i am trying to save an awk value into an array in bash:
total=`awk '{sum+=$3} END {print sum}' "$count".txt"`
((count++))
the above statement is in a while loop..
$count is to keep track of file numbers (1.txt,2.txt,3.txt,etc.)
i get the following error:
./lines1:... (1 Reply)
Hello,
I have a shell script containing a command string in the following format:
command1 | command2 | cut -c9-16
The output from this is a record number (using characters 9-16 of the original output string) e.g. ORD-1234
I wish to save this value to a variable for use in later commands... (4 Replies)
Hi All,
I am trying to convert the below Csh code into Perl.
But i have the following error.
Can any expert help ?
Error:
ls: *tac: No such file or directory
Csh
set $ST_file = `ls -rt *$testid*st*|tail -1`;
Perl
my $ST_file = `ls -rt *$testid*st*|tail -1`; (10 Replies)
Hello,
I am writing a ksh script on an AIX system. I need to get the date and time from a file into a variable. I found the following perl script from another post on this site and modified it slightly to output the format I need:
perl -e '@d=localtime ((stat(shift)));... (4 Replies)
Hi all,
Hope someone can help me out here.
I have this BASH script (see below)
My problem lies with the variable path.
The output of the command find will give me several fields. The 9th field is the path. I want to captured that and the I want to filter this to a specific level.
The... (6 Replies)
hi i want to find the size of a folder and assign it to a variable and then compare if it is greater than 1 gb.
i am doin this script, but it is throwing error....
#!/bin/ksh
cd . | du -s | size = awk '{print $1}'
if size >= 112000
then
echo size high
fi
ERROR : (4 Replies)
Hi, guys, i have a script i inherited from a coworker but i'm not perl savy. The script works but i would like it to work better. I want to run this command
./ciscomgrtest.pl -r "show version" -h hosts.router
and have the script goto each router in the hosts.router file and run the command... (2 Replies)
Hi Experts,
I am trying to get system output to capture inside awk , but not working:
Please advise if this is possible :
I am trying something like this but not working, the output is coming wrong:
echo "" | awk '{d=system ("date") ; print "Current date is:" , d }'
Thanks, (5 Replies)
So, I've been playing with speeding up some analysis we do by using multiple threads of awk (actually, mawk, but code-compatible as far as I use it) on multiple CPU cores. So, I have a big data file and I have several copies of exactly the same processor script, written in mawk. I also have a... (8 Replies)
Hi,
I am trying to use variable output in awk to append a string to a word in a line. But that is not happening. Could you please help me on this.
YouTube Video Tutorial: How to Use Code Tags and Format Posts @UNIX.com
The below is the code
#!/bin/ksh
set -x
src=/users/oracle/Temp... (2 Replies)
Perl::Critic::Policy::CodeLayout::ProhibitHardTabs(3) User Contributed Perl Documentation Perl::Critic::Policy::CodeLayout::ProhibitHardTabs(3)NAME
Perl::Critic::Policy::CodeLayout::ProhibitHardTabs - Use spaces instead of tabs.
AFFILIATION
This Policy is part of the core Perl::Critic distribution.
DESCRIPTION
Putting hard tabs in your source code (or POD) is one of the worst things you can do to your co-workers and colleagues, especially if those
tabs are anywhere other than a leading position. Because various applications and devices represent tabs differently, they can cause you
code to look vastly different to other people. Any decent editor can be configured to expand tabs into spaces. Perl::Tidy also does this
for you.
This Policy catches all tabs in your source code, including POD, quotes, and HEREDOCs. The contents of the "__DATA__" section are not
examined.
CONFIGURATION
Hard tabs in a string are always forbidden (use " " instead). But hard tabs in a leading position are allowed when they are used to
indent code statements, "qw()" word lists, and regular expressions with the "/x" modifier. However, if you want to forbid all tabs
everywhere, then add this to your .perlcriticrc file:
[CodeLayout::ProhibitHardTabs]
allow_leading_tabs = 0
NOTES
Beware that Perl::Critic may report the location of the string that contains the tab, not the actual location of the tab, so you may need
to do some hunting. I'll try and fix this in the future.
AUTHOR
Jeffrey Ryan Thalhammer <jeff@imaginative-software.com>
COPYRIGHT
Copyright (c) 2005-2011 Imaginative Software Systems. All rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. The full text of this license
can be found in the LICENSE file included with this module.
perl v5.16.3 2014-06-09 Perl::Critic::Policy::CodeLayout::ProhibitHardTabs(3)