09-22-2017
In condition 2c, what are you trying to do : an assignation ( = ) or a comparison ( == ) ?
Also review your whole code : you stilll have a bunch of dollars that shouldn't be there ( f[... rather than $f[... , f[i] rather than f[$i] ...).
Last edited by ctsgnb; 09-22-2017 at 10:43 AM..
This User Gave Thanks to ctsgnb For This Post:
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
Hello Friends,
I have a file(InputFile.csv) with the following columns(the columns are pipe-delimited):
ColA|ColB|ColC|ColD|ColE|ColF
Now for this file, I have to get those records which fulfil the following condition:
If "ColB" is NOT NULL and "ColD" has values one of the following... (9 Replies)
Discussion started by: mehimadri
9 Replies
2. Shell Programming and Scripting
With this script i want to print the output to a specific field-number . Can anybody help?
awk 'NR=FNR{split(FILENAME,fn,"_");nr=$2;f = $1} END{for (i=1;i<=f;i++) print i,$fn=nr}' input_5.csv input_6.csvinput_5.csv
4 135
5 185
6 85
11 30input_6.csv
1 90
3 58
4 135
7 60
8 55
10... (1 Reply)
Discussion started by: sdf
1 Replies
3. Shell Programming and Scripting
Hello,
I'm trying the solve the following problem.
I have a file which I intend to use as a csv called master.csv
The columns are separated by commas.
I want to change the text on a specific row in either column 3,4,5 or 6 from xxx to yyy depending upon if column 1 matches a specified pattern.... (3 Replies)
Discussion started by: cyphex
3 Replies
4. Shell Programming and Scripting
Please help me to write a script
Match with ACNO & NAME if it matched calculate the total val1 val2 val3 and val4 and GT is total of ACNO wise.please check the output
Table
-----------------
1005|ANDP|ACN|20|50|10|30
1005|ANDP|ACN|20|10|30|40
1001|AND|NAC|40|50|40|50... (22 Replies)
Discussion started by: kalia4u
22 Replies
5. Shell Programming and Scripting
If $1 in file1 matches $2 in file2. Then the value in $2 of file2 is updated to $1"."$2 of file2. The awk seems to only match the two files but not update. Thank you :).
awk
awk 'NR==FNR{A ; next} $1 in A { $2 = a }1' file1 file2
file1
name version
NM_000593 5
NM_001257406... (3 Replies)
Discussion started by: cmccabe
3 Replies
6. Shell Programming and Scripting
I am trying to use awk to match two files that are tab-delimited. When a match is found between file1 $1 and file2 $4, $4 in file2 is updated using the $2 value in file1. If no match is found then the next line is processed. Thank you :).
file1
uc001bwr.3 ADC
uc001bws.3 ADC... (4 Replies)
Discussion started by: cmccabe
4 Replies
7. Shell Programming and Scripting
In the tab-delimeted input file below I am trying to use awk to update the value in $2 if TYPE=ins in bold, by adding the value of
HRUN= in italics. In the below since in line 1 TYPE=ins the 117282541 value in $2 has 6 added because that is the value of HRUN=.
Hopefully the awk is a start but I... (2 Replies)
Discussion started by: cmccabe
2 Replies
8. Shell Programming and Scripting
I am trying to use awk to update the below tab-delimited file based on 5 different rules/conditions. The final output is also
tab-delimited and each line in the file will meet one of the conditions. My attemp is below as well though I am not very confident in it. Thank you :).
Condition 1: The... (10 Replies)
Discussion started by: cmccabe
10 Replies
9. Shell Programming and Scripting
In the perl below, which does execute, I am having trouble with the else in Rule 3. The digit in f{8} is extracted and used to update f accordinly along with the value in f.
There can be either - * or + before the number that is extracted but the same logic applies, that is if the value is greater... (5 Replies)
Discussion started by: cmccabe
5 Replies
10. Shell Programming and Scripting
I have an input file with
A=xyz
B=pqr
I would want the value in Second Field (xyz or pqr) updated with a value present in Shell Variable based on the value passed in the first field. (A or B )
while read line
do
NEW_VALUE = `some functionality done on $line`
If $line=First Field-... (1 Reply)
Discussion started by: infernalhell
1 Replies
LEARN ABOUT DEBIAN
arch::revisionbunches
Arch::RevisionBunches(3pm) User Contributed Perl Documentation Arch::RevisionBunches(3pm)
NAME
Arch::RevisionBunches - manage bunches of related revisions
SYNOPSIS
use Arch::RevisionBunches;
use Arch::Tree;
my $rb = Arch::RevisionBunches->new;
my $tree = Arch::Tree->new(".", own_logs => 1);
$rb->add_revision_descs($tree->get_history_revision_descs);
$rb->rebunch(25); # the default is 50
foreach my $bunch ($rb->get) {
print "$bunch->{version}
";
print " $_->{name} $_->{summary}
"
foreach @{$bunch->{revision_descs}};
}
foreach my $bunch ($rb->reverse_revision_descs->rebunch(30)) {
print $bunch->{name1};
print " .. $bunch->{name2}" if $bunch->{name2};
print " ($bunch->{daysago1}";
print " .. $bunch->{daysago2}" if $bunch->{name2};
print " days ago)
";
}
DESCRIPTION
This class helps front-ends to group revisions. Such grouping is essential when, for example, the version to be shown contains thousands of
revisions. The front-end may decide to show expandable bunches of 100 revisions each.
There is a support for revision descriptions (summary, date, creator, email, and in some cases associated the file name and/or the
associated version). There is a constraint by convention, one bunch may only contain revisions of the same version, and the ones
associated with the same file if applicable. It is possible to define an order of versions. It is possible to recreate bunches (rebunch)
using a different number of revisions. The constraint defines the actual number of revisions in different bunches, it is not guaranteed to
be the same.
METHODS
The following methods are available:
new, init, add_revision_descs, versions, rebunch, get, clear, reverse_revision_descs, versions, filepaths.
new [%args]
Construct Arch::RevisionBunches object.
The %args are passed to init method.
init [%args]
The %args keys may be bunch_size (to use as the default bunch size instead of 50), max_sumlen (maximal summary length to keep including
trailing ellipsis, must be greater than 5), version (if set, then all revisions are assumed to be of one version, otherwise multiple
versions are assumed), final_revision and final_filepath (the final revision and filepath for which the revision bunches are
constructed). These last two %args keys are not really used yet.
add_revision_descs [%constant_fields]
Add revision descriptions that is arrayref of hashes. See other classes that return such revision descriptions. If the %constant_fields
is given, then add these to all revision descriptions (rarely needed).
Return the object, this enables chaining of get or rebunch method call.
rebunch [bunch_size]
Group newly added revisions if no bunch_size is specified. Otherwise regroup all revisions using a given bunch_size. The default bunch
size may be specified in the constructor.
Return the same get does.
get Return bunches that is arrayref in scalar context, array in list context.
Each bunch is hashref with keys:
revision_descs
name1 daysago1 time1 tz1
name2 daysago2 time2 tz2
size
num_creators
num_other_creators
main_creator
main_email
creator
name
date
summary
and optionally "version", "is_missing" and "filepath" if applicable.
This method implicitly calls rebunch with no parameter if new revision descriptions were added that are not bunched yet.
clear
Clear all bunches and their revision descriptions.
reverse_revision_descs
Effectivelly empty all revision descriptions (both old and new) and readd them in the reverse order.
Return the object, this enables chaining of get or rebunch method call.
versions
Return distinct versions participated in all bunches. Return empty arrayref if not applicable, i.e. if version is given in the
constructor.
filepaths
Return distinct filepaths participated in all bunches. Return empty arrayref if not applicable, i.e. if revision descriptions have no
filepath.
BUGS
Waiting for your reports.
AUTHORS
Mikhael Goikhman (migo@homemail.com--Perl-GPL/arch-perl--devel).
SEE ALSO
For more information, see Arch::Tree, Arch::Log, Arch::Session, Arch::Library.
perl v5.10.1 2005-02-21 Arch::RevisionBunches(3pm)