perlunity.de - PERL | JAVASCRIPT | PHP | MySQL | APACHE



#!/COMMUNITY

Members: 5374
davon online: 1
weitere User: 17
 Click for quality!



12.02.2012 / 00:00
Community-Member werden   |   Paßwort vergessen   |   OnlineMonitor (1) Wer ist online ... OnlineMonitor starten !
     

 

Home

PERLscripts

PHPscripts

JAVAscripts

Hilfreiches

Links2www

Newscenter

Community

Interna



Community  »  Perl: Allgemeines Forum zur Themenübersicht Themensuche Themenansicht in Thread-Modus


Beitraghilfe wegen GUi
 Seitenanfang
hallo zusa.
ich hätte gerne wissen wollen wie ich in ein fenster 2 buttons :
1-(load button)->lädt die datei die ich gerne hätte und zeigts vor mir in einem feld
2-(ziel button)-> wo ich die datei hin möchte und wie sie heissen soll.
so quasi 2 buttons mit 2 feldern gegenüber mit einem browse button wie man s kennt in windows.

drunter kommt dann ein ok button und cancel button.
nach m OK drücken tut sich irgendwas, quasi sucht
in der load datei nach best, mustern findet sie und dann kopiert sie in s neu ziel datei.
cancel ist dann beide felder leerren.
mit pattern matching kenne ich mich aus ich hab halt nur keine erfahrung mit guiiii.
danke für die Antworten im voraus.
wäre echt dringend.
thx all

Datum: 27.09.2007-14:56
Beitragre: hilfe wegen GUi
 Seitenanfang
Koennte helfen...

#!/usr/bin/perl
  use strict;
  use warnings;
  use Tk;
  use Tk::FileSelect;
  my $main_window = Tk::MainWindow->new;
  # --- Source File Frame ---
  my $frame_source_file = $main_window->Frame();
  my $label_source_file = $frame_source_file->Label();
  $label_source_file->configure(-text => 'Source:');
  $label_source_file->pack(-side => 'left');
  my $entry_source_file = $frame_source_file->Entry();
  $entry_source_file->pack(-side => 'left', -expand => 1, -fill => 'x');
  my $button_source_file = $frame_source_file->Button();
  $button_source_file->configure(-text => 'Browse...');
  $button_source_file->pack(-side => 'left');
  $frame_source_file->pack(-expand => 1, -fill => 'x');
  # --- Target File Frame ---
  my $frame_target_file = $main_window->Frame();
  my $label_target_file = $frame_target_file->Label();
  $label_target_file->configure(-text => 'Target:');
  $label_target_file->pack(-side => 'left');
  my $entry_target_file = $frame_target_file->Entry();
  $entry_target_file->pack(-side => 'left', -expand => 1, -fill => 'x');
  my $button_target_file = $frame_target_file->Button();
  $button_target_file->configure(-text => 'Browse...');
  $button_target_file->pack(-side => 'left');
  $frame_target_file->pack(-expand => 1, -fill => 'x');
  # --- Frame Action Buttons ---
  my $frame_action_buttons = $main_window->Frame();
  my $button_action_ok = $frame_action_buttons->Button(-text => 'Ok');
  $button_action_ok->pack(-side => 'left');
  my $button_action_cancel = $frame_action_buttons->Button(-text => 'Cancel');
  $button_action_cancel->pack(-side => 'left');
  $frame_action_buttons->pack;
  # --- Callbacks ---
  $button_source_file->configure(-command => [ \&choose_file, $entry_source_file ]);
  $button_target_file->configure(-command => [ \&choose_file, $entry_target_file ]);
  $button_action_ok->configure(-command => sub { print "Pressed Ok\n"; });
  $button_action_cancel->configure(-command => sub { print "Pressed Cancel\n"; });
  Tk::MainLoop();
  sub choose_file {
      my $entry = shift;
      if(my $file_path = $entry->FileSelect->Show()) {
          $entry->configure(-text => $file_path);
      }
  }

Datum: 27.09.2007-21:24
Beitragre: hilfe wegen GUi
 Seitenanfang
hallo, danke für die echte Hilfe,echt super,
bei mir hackt s wieder:-(( und zwar ich habe das ist mein code:

#!/usr/bin/perl
#use warning;
#use strict;
use CGI qw(:all);
open (IN,"C:/Documents and Settings/XXX/Desktop/Test") or die "Fehler beim oeffnen";
open (suchdatei,"C:/Documents and Settings/XXX/Desktop/FASTA1.fasta") or die "FASTA nicht möglich zum öffnen!!" ;
open (OUT,">C:/Documents and Settings/XXX/Desktop/Peptide.txt") or die "Fehler beim Anlegen der neuen Datei";
print "\nDateien zum kopieren geoeffnet\n";

while (<IN>){
$i = $_;
chomp $i;
if(/Hit\d">([^<\/A> ]*)/)#matcht den string aus dem htm datei,so in der art IOP123234 {
#print OUT $1."\n";
$j = $1;
push(@array,$j);
}
}
while (defined($var=<suchdatei>)){

# diese suchdatei fängt so an:

>IPI:IOP123234.1| kemot polar
DDDDDDHHHHJJJJJJKKLLLOOIIHHGGF
NNNMMMOOPPPEERTTWWESGGHHGHH
>IPI:andere Nummer usw..
..
>IPI:...
##################################

$var =~ /(>IPI:)([^| .]*)([^>]*)/ ;#meine gesuchte variable steht in $2 da in diesem ausdruck.
}
}
close (IN);
close (suchdatei);
close (OUT);
print "\nDateien geschlossen, Kopiervorgang

#was ich gerne hätte. wäre dass das programm die werte im gepushten array einliest in so ein foreach schleife z.B und prüft diese werte in diese suchdatei, wenn die vorhanden sind dann bitte die dazu gehörigen daten in neum file kopieren und soweiter. ,d.h vom anfang der zeile und wäre >IPI:..bis zum letzten enter zeichen vor dem nächsten >IPI:
hoffentlich war ich verständlich genug das wäre echt coool falls sich jemand melden würde.



Datum: 28.09.2007-13:06
-






-
 -