Could you please try the following, not sure if it is good, but I tried my best to do this. Please take a look and see if this helps. Let us say input file is check_OFS_and_variable.
Code:
if [[ -f file_temp1 ]]
then
rm file_temp1
fi
if [[ -f file_temp ]]
then
rm file_temp
fi
echo "enter the number of dash you want"
read v
nine=9
if [[ $v -ge $nine ]]
then
b=`awk -F" " 'NR==1 {print$1}' check_OFS_and_variable`
a=`awk -F" " 'NR==2 {print$1}' check_OFS_and_variable`
e=`echo $b | wc -c`
f=`echo $a | wc -c`
##echo $e
let "t = v + e"
let "p = t - f"
##echo $p
OFS=`echo "-"`
i=0
value1_1=`awk -F" " 'NR==1 {print$1}' check_OFS_and_variable`
value1_2=`awk -F" " 'NR==1 {print$2}' check_OFS_and_variable`
echo $value1_1
value2_1=`awk -F" " 'NR==2 {print$1}' check_OFS_and_variable`
value2_2=`awk -F" " 'NR==2 {print$2}' check_OFS_and_variable`
echo $value1_1 >> file_temp
while [[ $i -le $v ]]
do
echo $OFS >> file_temp
let "i = i +1"
done
echo $value1_2 >> file_temp
i=0
echo $value2_1
echo $value2_1 >> file_temp1
while [[ $i -le $p ]]
do
echo $OFS >> file_temp1
let "i = i + 1"
done
echo $value2_2 >> file_temp1
awk '{print $0}' ORS="" file_temp
echo "\n"
awk '{print $0}' ORS="" file_temp1
else
echo "print enter more than 9 times."
fi
Hello Experts,
I am back, with another doubt. I am not sure what it relates to this time - awk or the print command actually. I'll explain the scenario:
I have a huge file, and it has some traces(logs). In between those logs, there are statements with some SQL queries. All I want to do is... (4 Replies)
Hi Friends,
Scripting newb here. So I'm trying to create a geektool script that uses awk and printf to output certain fields from top (namely command, cpu%, rsize, pid and time, in that order).
Here's the input from the top process that I'm putting into awk:
PID COMMAND %CPU ... (3 Replies)
Hi
I need to check if field separator I am using in awk statement is " : ", for example:
TIME=12:59
HOUR=`echo "$TIME" | awk '{FS=":"; print $1}'`
MINUTES=`echo "$TIME" | awk '{FS=":"; print $2}'`
Is there a way to check within the above awk statement ?
Thanks for help -A (2 Replies)
Hi;
i have a file and i want to get;
- If the last word in line 14 is NOT equal to "Set."; then print 2nd, 3rd, 4th and 5th values of 3rd line.
and my code is:
nawk 'NR==14 {if ($NF!="Set.") (NR==3{print $2,$3,$4,$5}) }' file.txt
but no result?? :confused::(:confused::( (4 Replies)
Hi, all
I need to get fields in a line that are separated by commas, some of the fields are enclosed with double quotes, and they are supposed to be treated as a single field even if there are commas inside the quotes.
sample input:
for this line, 5 fields are supposed to be extracted, they... (8 Replies)
I am using this code to insert something into a csv file:
awk -F";" -v url=$url -v nr=$nr 'NR==nr{$2=url$2}1' file
Why do I get the output
field1 field2
instead of
field1;field2
I have given -F";", so the field separator should surely be ";". (1 Reply)
In awk, how do I print all fields with a specified output field separator?
I have tried the following, which does not print the output FS:
echo a b c d | awk 'BEGIN{OFS = ";"}{print $0}' (3 Replies)
I need to set awk field separator to ";", but I need to avoid ";EXT".
so that
echo a;b;c;EXTd;e;f | awk -F";" '{print $3}'
would give "c;EXTd" (2 Replies)
Hi Experts ,
file :
- How to construct the awk filed separator so that $1, $2 $3 , can be assigned to the each "" range.
I am trying : awk -F"]" '{print $1}'
but it is printing the entire file. Not first field.
The desired output needed for first field... (9 Replies)
Hi, can some some help to get me the right results,
I have few text files, need to grep few columns from each file and get the results in one row with comma separated.
my code is
#folder=/nz/kit/log/backupsvr
folder=/export/home/nz/valai/tmpfiles/
echo $folder
for entry in `ls... (4 Replies)
Discussion started by: ValaiG
4 Replies
LEARN ABOUT DEBIAN
html::microformats::format::figure
HTML::Microformats::Format::figure(3pm) User Contributed Perl Documentation HTML::Microformats::Format::figure(3pm)NAME
HTML::Microformats::Format::figure - the figure microformat
SYNOPSIS
use HTML::Microformats::DocumentContext;
use HTML::Microformats::Format::figure;
use Scalar::Util qw(blessed);
my $context = HTML::Microformats::DocumentContext->new($dom, $uri);
my @objects = HTML::Microformats::Format::figure->extract_all(
$dom->documentElement, $context);
foreach my $fig (@objects)
{
printf("<%s> %s
", $fig->get_image, $fig->get_legend->[0]);
foreach my $maker ($p->get_credit)
{
if (blessed($maker))
{
printf(" - by %s
", $maker->get_fn);
}
else
{
printf(" - by %s
", $maker);
}
}
}
DESCRIPTION
HTML::Microformats::Format::figure inherits from HTML::Microformats::Format. See the base class definition for a description of property
getter/setter methods, constructors, etc.
MICROFORMAT
HTML::Microformats::Format::figure supports figure as described at <http://microformats.org/wiki/figure>.
RDF OUTPUT
Data is returned using Dublin Core and FOAF.
BUGS
Please report any bugs to <http://rt.cpan.org/>.
SEE ALSO
HTML::Microformats::Format, HTML::Microformats.
AUTHOR
Toby Inkster <tobyink@cpan.org>.
COPYRIGHT
Copyright 2008-2011 Toby Inkster
This library is free software; you can redistribute it and/or modify it under the same terms as Perl 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 2011-12-06 HTML::Microformats::Format::figure(3pm)
11-06-2013
