I added the sort routine because array iteration doesn't return the elements in order.
(Definitely not a good idea for large arrays.)
Note that the OP wants the results in an array for further processing in the same script.
I'm not sure how to retrieve the array elements in the order that they were inserted.
Maybe a forum member can suggest how to do so.
Code:
echo |
awk 'function generate_permutations(cs, item, n, k){
if (k == 0){
iter = iter + 1;
arr[iter] = item;
return;
}
for (i in cs){
new_item = item""cs[i];
generate_permutations(cs, new_item, n, k-1);
}
}
{
split("", arr, "");
iter = 0;
str = "a,b,c,d,e";
n = split(str, charset, ",");
k = 3;
generate_permutations(charset, "", n, k);
asort(arr);
for (i=1; i <= iter; i++){
printf "%s\n", arr[i];
}
}
'
Last edited by durden_tyler; 01-09-2019 at 02:39 PM..
Reason: Too many blank lines added automatically between paragraphs.
This User Gave Thanks to durden_tyler For This Post:
Hello Friends,
Is it possible to return an array from a user defined function in awk ?
example:
gawk '
BEGIN{}
{
catch_line = my_function(i)
print catch_line
print catch_line
print catch_line
}
function my_function(i)
{
print "echo"
line= "awk"
line= "gawk"... (2 Replies)
I have a file with the record of person:
cat > $TMP/record.txt
John Torres M Single 102353 Address
Mark Santos M Maried 103001 Address
Carla Maria F Maried 125653 Address
#!/bin/ksh
ManipulateID(){
...
return 0;
... #or
return 1;
}
cat $TMP/record.txt | awk 'BEGIN {printf... (4 Replies)
OS=HP-UX ksh
The following works, except I want to include the <start> and <end> in the output.
awk -F '<start>' 'BEGIN{RS="<end>"; OFS="\n"; ORS=""} {print $2} somefile.log'
The following work in bash but not in ksh
sed -n '/^<start>/,/^<end>/{/LABEL$/!p}' somefile.log (4 Replies)
Hello I have a very simple input file in which there are a list of numbers:
1
2
3
4
5
6
7
8
9
10
My actual dataset is about 200 lines long. I was wondering how to add different permutations of 3 numbers for all the numbers in the dataset. For example:
1+2+3; 3+5+7; 2+8+1; 9+3+4... (1 Reply)
Hi,
I need to filter my data based on items in column 23. Column 1 until column 23 are tab separated. This is how column 23 looks like:
PRIMARY=<0/1:504:499,5:.:.:.:0.01:1:15:.>
I want to extract lines if items 7 (separated by : ) in column 23 are more than 0.25 . In example above , item... (2 Replies)
hello,
I'm reading this thread, in which there is this code :awk '
function comb(v,i) {
for(i in A) {
delete A;
if(length(A))
comb((v?v"+":x)i)
else print v"+"i
A;
}
}
{ A }
END {
comb();
} ' infilebut I can't understand where does v come... (5 Replies)
Not sure where the problem is. I can run the script without any issue using the following command.
. /opt/app/scripts/cdc_migration.sh
But it fails with the below error when I try it this way
/opt/app/scripts/cdc_migration.sh
/opt/app/scripts/cdc_migration.sh: line 65: return: can only... (1 Reply)
Hi All,
Good Day, seeking for your assistance on how to not perform my 2nd, 3rd,4th etc.. function if my 1st function is in else condition.
#Body
function1()
{
if
then
echo "exist"
else
echo "not exist"
}
#if not exist in function1 my all other function will not proceed.... (4 Replies)
Discussion started by: meister29
4 Replies
LEARN ABOUT DEBIAN
net::cli::interact::role::iterator
Net::CLI::Interact::Role::Iterator(3pm) User Contributed Perl Documentation Net::CLI::Interact::Role::Iterator(3pm)NAME
Net::CLI::Interact::Role::Iterator - Array-based Iterator
VERSION
version 1.121640
SYNOPSIS
my $count = $iter->count;
$iter->reset;
while ( $iter->has_next ) {
print $iter->next;
}
DESCRIPTION
This module implements an array-based iterator which may be mixed-in to add management of a sequence of elements and processing of that
sequence.
The iterator is inspired by MooseX::Iterator but limited to arrays and adds many other facilities. The following section describes the
methods provided by this class.
USAGE
The slot used for storing iterator elements is named "_sequence" and you should write your consuming class to marshall data into this slot,
perhaps via "BUILD" or "init_arg". For example:
has '+_sequence' => (
isa => 'ArrayRef[Thingy]',
init_arg => 'things',
);
INTERFACE
count
The number of elements currently stored in the iterator. Note that this is of course not the same as the index of the last item in the
iterator (which is 0-based)
first
Returns the first item in the iterator.
last
Returns the last item in the iterator.
item_at( $pos )
Returns the item at the given position in the iterator, or throws an exception if $pos is past the end of the iterator. The position is
0-based.
insert_at( $pos, $iter )
Inserts the contents of the passed iterator starting at (not after) the position given. The passed iterator must also be a consumer of this
role. The position is 0-based.
append( $iter )
Shorthand for "insert_at" when you want to add the contents of the passed iterator after the end of the sequence.
idx( $pos? )
Returns the index (0-based) of the current iterator cursor, or sets the cursor if a position (again, 0-based) is passed.
An exception is thrown if you attempt to read the cursor position before having read any elements from the iterator, or if the iterator is
empty.
next
Returns the next item in the iterator sequence, and advances the cursor. Throws an exception if you have already reached the end of the
sequence.
has_next
Returns true if there are further elements to be read from the iterator.
peek
Returns the next item in the sequence without advancing the position of the cursor. It returns "undef" if you are already at the end of the
sequence.
reset
Resets the cursor so you can iterate through the sequence of elements again.
AUTHOR
Oliver Gorwits <oliver@cpan.org>
COPYRIGHT AND LICENSE
This software is copyright (c) 2012 by Oliver Gorwits.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.
perl v5.14.2 2012-06-12 Net::CLI::Interact::Role::Iterator(3pm)
01-09-2019
