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 SUSE
gtk2::textiter
Gtk2::TextIter(3) User Contributed Perl Documentation Gtk2::TextIter(3)NAME
Gtk2::TextIter
HIERARCHY
Glib::Boxed
+----Gtk2::TextIter
METHODS
textattributes = $iter->get_attributes
boolean = $iter->backward_char
boolean = $iter->backward_chars ($count)
o $count (integer)
boolean = $iter->backward_cursor_position
boolean = $iter->backward_cursor_positions ($count)
o $count (integer)
boolean = $iter->backward_find_char ($pred, $user_data=undef, $limit=undef)
o $pred (scalar)
o $user_data (scalar)
o $limit (Gtk2::TextIter or undef)
boolean = $iter->backward_line
boolean = $iter->backward_lines ($count)
o $count (integer)
(match_start, match_end) = $iter->forward_search ($str, $flags, $limit=NULL)
o $str (string)
o $flags (Gtk2::TextSearchFlags)
o $limit (Gtk2::TextIter or undef)
boolean = $iter->backward_sentence_start
boolean = $iter->backward_sentence_starts ($count)
o $count (integer)
boolean = $iter->backward_to_tag_toggle ($tag)
o $tag (Gtk2::TextTag or undef)
boolean = $iter->backward_visible_cursor_position
Since: gtk+ 2.4
boolean = $iter->backward_visible_cursor_positions ($count)
o $count (integer)
Since: gtk+ 2.4
boolean = $iter->backward_visible_line
Since: gtk+ 2.8
boolean = $iter->backward_visible_lines ($count)
o $count (integer)
Since: gtk+ 2.8
boolean = $iter->backward_visible_word_start
Since: gtk+ 2.4
boolean = $iter->backward_visible_word_starts ($count)
o $count (integer)
Since: gtk+ 2.4
boolean = $iter->backward_word_start
boolean = $iter->backward_word_starts ($count)
o $count (integer)
boolean = $iter->begins_tag ($tag)
o $tag (Gtk2::TextTag or undef)
textbuffer = $iter->get_buffer
integer = $iter->get_bytes_in_line
boolean = $iter->can_insert ($default_editability)
o $default_editability (boolean)
character = $iter->get_char
integer = $iter->get_chars_in_line
textchildanchor or undef = $iter->get_child_anchor
integer = $lhs->compare ($rhs)
o $rhs (Gtk2::TextIter)
boolean = $iter->editable ($default_setting)
o $default_setting (boolean)
boolean = $iter->ends_line
boolean = $iter->ends_sentence
boolean = $iter->ends_tag ($tag)
o $tag (Gtk2::TextTag or undef)
boolean = $iter->ends_word
boolean = $lhs->equal ($rhs)
o $rhs (Gtk2::TextIter)
boolean = $iter->forward_char
boolean = $iter->forward_chars ($count)
o $count (integer)
boolean = $iter->forward_cursor_position
boolean = $iter->forward_cursor_positions ($count)
o $count (integer)
boolean = $iter->forward_find_char ($pred, $user_data=undef, $limit=undef)
o $pred (scalar)
o $user_data (scalar)
o $limit (Gtk2::TextIter or undef)
boolean = $iter->forward_line
boolean = $iter->forward_lines ($count)
o $count (integer)
(match_start, match_end) = $iter->forward_search ($str, $flags, $limit=NULL)
o $str (string)
o $flags (Gtk2::TextSearchFlags)
o $limit (Gtk2::TextIter or undef)
boolean = $iter->forward_sentence_end
boolean = $iter->forward_sentence_ends ($count)
o $count (integer)
$iter->forward_to_end
boolean = $iter->forward_to_line_end
boolean = $iter->forward_to_tag_toggle ($tag)
o $tag (Gtk2::TextTag or undef)
boolean = $iter->forward_visible_cursor_position
Since: gtk+ 2.4
boolean = $iter->forward_visible_cursor_positions ($count)
o $count (integer)
Since: gtk+ 2.4
boolean = $iter->forward_visible_line
Since: gtk+ 2.8
boolean = $iter->forward_visible_lines ($count)
o $count (integer)
Since: gtk+ 2.8
boolean = $iter->forward_visible_word_end
Since: gtk+ 2.4
boolean = $iter->forward_visible_word_ends ($count)
o $count (integer)
Since: gtk+ 2.4
boolean = $iter->forward_word_end
boolean = $iter->forward_word_ends ($count)
o $count (integer)
boolean = $iter->has_tag ($tag)
o $tag (Gtk2::TextTag)
boolean = $iter->in_range ($start, $end)
o $start (Gtk2::TextIter)
o $end (Gtk2::TextIter)
boolean = $iter->inside_sentence
boolean = $iter->inside_word
boolean = $iter->is_cursor_position
boolean = $iter->is_end
boolean = $iter->is_start
language = $iter->get_language
integer = $iter->get_line
integer = $iter->get_line_index
$iter->set_line_index ($byte_on_line)
o $byte_on_line (integer)
integer = $iter->get_line_offset
$iter->set_line_offset ($char_on_line)
o $char_on_line (integer)
$iter->set_line ($line_number)
o $line_number (integer)
list = $iter->get_marks
Returns a list of all Gtk2::TextMark at this location. Because marks are not iterable (they don't take up any "space" in the buffer, they
are just marks in between iterable locations), multiple marks can exist in the same place. The returned list is not in any meaningful
order.
integer = $iter->get_offset
$iter->set_offset ($char_offset)
o $char_offset (integer)
$first->order ($second)
o $second (Gtk2::TextIter)
pixbuf or undef = $iter->get_pixbuf
string = $start->get_slice ($end)
o $end (Gtk2::TextIter)
boolean = $iter->starts_line
boolean = $iter->starts_sentence
boolean = $iter->starts_word
list = $iter->get_tags
Returns a list of tags that apply to iter, in ascending order of priority (highest-priority tags are last).
string = $start->get_text ($end)
o $end (Gtk2::TextIter)
list = $iter->get_toggled_tags ($toggled_on)
o $toggled_on (boolean)
Returns a list of Gtk2::TextTag that are toggled on or off at this point. (If toggled_on is TRUE, the list contains tags that are toggled
on.) If a tag is toggled on at iter, then some non-empty range of characters following iter has that tag applied to it. If a tag is toggled
off, then some non-empty range following iter does not have the tag applied to it.
boolean = $iter->toggles_tag ($tag)
o $tag (Gtk2::TextTag or undef)
integer = $iter->get_visible_line_index
$iter->set_visible_line_index ($byte_on_line)
o $byte_on_line (integer)
integer = $iter->get_visible_line_offset
$iter->set_visible_line_offset ($char_on_line)
o $char_on_line (integer)
string = $start->get_visible_slice ($end)
o $end (Gtk2::TextIter)
string = $start->get_visible_text ($end)
o $end (Gtk2::TextIter)
ENUMS AND FLAGS
flags Gtk2::TextSearchFlags
o 'visible-only' / 'GTK_TEXT_SEARCH_VISIBLE_ONLY'
o 'text-only' / 'GTK_TEXT_SEARCH_TEXT_ONLY'
SEE ALSO
Gtk2, Glib::Boxed
COPYRIGHT
Copyright (C) 2003-2008 by the gtk2-perl team.
This software is licensed under the LGPL. See Gtk2 for a full notice.
perl v5.12.1 2010-07-05 Gtk2::TextIter(3)
01-09-2019
