Below is my code. It runs a backup program from a pTk GUI. My problem is at the 'system($cmd)' statement. The command gets executed before the message gets displayed in the text widget.

I want a message that tells * is being done, then when the process is done a message that says * is done along with relevant error codes.

Is there a better way to do this? And why are the messages displayed at the wrong time?

my @cmd = "";
                                      push (@cmd , $prog_args , $fullf
+ile2 , "/"  );
                          
                                           my $cmd2 = join " " , @cmd 
+;

                           $text -> delete ('1.0' , 'end'  );
                           $text -> insert ('end' , "\n"   );
                                       $text -> insert ('end' , "THIS 
+OPERATION SHOULD TAKE 5 min. to 15 min. \n ", 'highlite' );
                                       
                                           my $exit_status =  system( 
+$cmd2 );

                                                   print "\$exit_statu
+s at L1447 =: $exit_status\n";


                                                   if ( 0 == $exit_sta
+tus   ) 
                                                     {
                               $text -> insert ('end' , "\n\n" );
                               $text -> insert ('end' , "DONE! \n", 'h
+ighlite' );
                             }
[download]

Hi Monks,

While fetching data from Oracle db using Perl DBI, since column name is lengthy enough, oracle is truncating the 30th character from the column name, because of it's column length restriction it seems.

Is there anything we can do using perl DBI to avoid this column name truncation from the result set.

Thank you

my @f; my @e;
for $i (0..40) {
   @e=($i+=2, $i+1);
    push($f,@e); # just it right ? 
 }
    
  # how go on get it under multi array control
[download]

system ('grep -l "DATAmessage.*3\.0" *.xml > 3.0_files_arraydata.txt')
+; 
system ("mv temp_3.0_files_onixarraydata.txt 3.0_files_arraydata.txt")
+;  
system ("cat *files_arraydata.txt > data2.txt");
system ("rm data2.txt"); 

system ("sort -u data2.txt > data.txt");
[download]

I have tried other things to swap out the system calls like File::Grep in place of the grep calls, but while File::Grep works, it was slower than molasses in the dead of winter in Strawberry Perl. I know many look-down on the use of system ();, but I find it to be very fast. Any suggestions? And thank you for reading.

Hi Monks,

I have a question concerning Regex with HTML::Entities. I try to replace patterns with a keyword with some HTML-Code: The keword is encapsulated between ✶ (a little star). The keyword itself is of the form: Adjektive (Nominalflexion~84. The whole pattern looks like: {✶Adjektive (Nominalflexion)~87✶}

use HTML::Entities;

# $text is some Text from a mysql database

my $sep = decode_entities('✶');
my @v = ($text =~ /\{$sep(.*?)$sep\}/sg); # alle Verweise
# @v contains all patterns (which means that they match)
[download]

The matched elements in @v have the form: {✶Adjektive (Nominalflexion)~87✶} Going through all elements in @v, I try to replace the matched elements in the following way:

$b = "Adjektive (Nominalflexion)~87";
$c = "\{$sep$b$sep\}";
$r = "<div>some Text $b some other text</div>";
$text =~ s/$c/$r/s;
[download]

I tried a lot of variants including quotes (?:...), and what not. Nothing worked! Is there anyone, who can stop my wasting of time with these questions? Thanks in advance! Best regards, Horst

I have a question about what is more efficient for a small lookup function with only a few thousand items. Specifically I have a function in a module and that module has a function which gets passed a string. The function needs to determine if that string is in a set of a few thousand strings or not. How is that done most efficiently, and does the "best" approach vary by scale?

One way might be to load a hash with the strings as keys, and then see if defined($hash{$string}) or if defined($hash{$string}) has a value set.

Another would be to have a chain of elsif statements, and have the function cascade through those until either the end is reached or a match has been found.

Which approach is more appropriate or efficient? Or are the better approaches which can be used?