03-07-2013
I'm just saying that for good code structure, especially in printf situaitons where a template bit matches a data argument, doing one at a time give you a virtual array of lines where the template is right by the data and any comment, one field a line, give or take the occasional adjacent series of constants.
At a higher level, put all or minority record types in separate subroutines, so the flow is simple to follow: writeHeader, while ... writeData, writeTrailer.
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
Hello,
I am trying to output the values in an array to a file. The output needs to be formated such that each array value is left jusified in a field 8 character spaces long. Also, no more than 6 fields on a line. For example:
@array= 1..14;
Needs to be output to the file like so:
1 ... (4 Replies)
Discussion started by: seismic_willy
4 Replies
2. Shell Programming and Scripting
Here is the code I'm using
{
printf("%11d %4.2f\% %4.2f\%\n", $1,$2,$3);
}
I want the output to look something like
1235415234 12.24% 52.46%
Instead it looks something like
319203842 42.27\%4.2f\%
How do I just print a "%" without awk or printf thinking I'm trying to do... (1 Reply)
Discussion started by: Awanka
1 Replies
3. Shell Programming and Scripting
Hi All,
Can anybody tell me why is there a "0" in my output of $date_today ?
#!/usr/local/bin/perl
$date_today = system "date '+%y%m%d'";
print "$date_today\n";
Output:
$ perl test4
080908
0 (3 Replies)
Discussion started by: Raynon
3 Replies
4. Shell Programming and Scripting
Hello,
I wrote a script that does lot of things, and I would like to change the format of a number but without printing it now (so I don't want to use printf as it will print the value immediately).
Schematically here is what I have:
awk 'BEGIN{number=0.01234567}
$1==$2{$3=number}... (5 Replies)
Discussion started by: jolecanard
5 Replies
5. Shell Programming and Scripting
Hi,
I am new to unix , I have a requirement for formating the input file and generate the output file as per the downstream requirement ..
My application receiving a text input file having 4 field and my application need to check each field and if some value of a field is blank ..then it need... (1 Reply)
Discussion started by: julirani
1 Replies
6. Shell Programming and Scripting
I want to print a string say "str1 str2 str3 str4" using printf.
If I try printing it using printf it is printing as follows.
output
-------
str1
str2
str3
str4
btw I'm working in AIX.
This is my first post in this forum :)
regards,
rakesh (4 Replies)
Discussion started by: enigmatrix
4 Replies
7. UNIX for Advanced & Expert Users
I have a print file taken from the print spooler and I want to delete all the formatting leaving only the text. If you vi the file it shows "\304\304 ...." which translates into a printed line on print output.
I need to be able to edit and pass this file to another process
Thnaks (10 Replies)
Discussion started by: petercp
10 Replies
8. Shell Programming and Scripting
Hi ,
I am facing error in perl
when I assign a below query in a varibale $query because of new line charchters
$query=
SELECT XYZ
, ABC
, c2
, c3
, c4
FROM t1
how can i get rid of new line charchters with out changing the... (2 Replies)
Discussion started by: gvk25
2 Replies
9. Shell Programming and Scripting
For example, in this command:
ls /etc/rc0.d/ -print
ls /etc/rc0.d/ -printfThe outputs are quite different, why? (7 Replies)
Discussion started by: Henryyy
7 Replies
10. Shell Programming and Scripting
# cat t.txt
2,3,4,5,A,2012-01-01 00:00:28
2,6,4,5,A,2012-01-02 00:00:28
2,7,4,5,A,2012-01-02 02:00:28
# awk -F"," '{OFS=",";print $2,"";printf("%s", strftime("%m%d%y",$6));printf("%s", strftime("%H%M%S \n",$6));print ("",$1)}' t.txt
3,
010170073332
,2
6,
010170073332
,2
7,... (3 Replies)
Discussion started by: before4
3 Replies
LEARN ABOUT CENTOS
perl::critic::policy::valuesandexpressions::requireinterpolation
Perl::Critic::Policy::ValuesAndExpressions::RequireInterUsertContribPerl::Critic::Policy::ValuesAndExpressions::RequireInterpolationOfMetachars(3)
NAME
Perl::Critic::Policy::ValuesAndExpressions::RequireInterpolationOfMetachars - Warns that you might have used single quotes when you really
wanted double-quotes.
AFFILIATION
This Policy is part of the core Perl::Critic distribution.
DESCRIPTION
This policy warns you if you use single-quotes or "q//" with a string that has unescaped metacharacters that may need interpolation. Its
hard to know for sure if a string really should be interpolated without looking into the symbol table. This policy just makes an educated
guess by looking for metacharacters and sigils which usually indicate that the string should be interpolated.
Exceptions
o Variable names to "use vars":
use vars '$x'; # ok
use vars ('$y', '$z'); # ok
use vars qw< $a $b >; # ok
o Things that look like e-mail addresses:
print 'john@foo.com'; # ok
$address = 'suzy.bar@baz.net'; # ok
CONFIGURATION
The "rcs_keywords" option allows you to stop this policy from complaining about things that look like RCS variables, for example, in
deriving values for $VERSION variables.
For example, if you've got code like
our ($VERSION) = (q<$Revision: 4126 $> =~ m/(d+)/mx);
You can specify
[ValuesAndExpressions::RequireInterpolationOfMetachars]
rcs_keywords = Revision
in your .perlcriticrc to provide an exemption.
NOTES
Perl's own "warnings" pragma also warns you about this.
SEE ALSO
Perl::Critic::Policy::ValuesAndExpressions::ProhibitInterpolationOfLiterals
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 Perl::Critic::Policy::ValuesAndExpressions::RequireInterpolationOfMetachars(3)