CGI checkbox (Perl/CGI) - Perl-Community.de

[thread]14822[/thread]

CGI checkbox

Leser: 21

Articles: hide open all | hide show old branches

+5 replies
Gast Kai

2010-03-16 11:15
Hallo,
ich versuche ein Skript zu schreiben, was mir eine Auswahl von Alignments gibt,
die als checkboxen angezeigt werden. Wenn ich dann bestimmte Alignments auswähle
sollten diese an ein zweites Skript übergeben werden, welches mit den selektierten
Alignments weiterarbeitet.
Skript1:
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

....... my $hitname; print "<form action=alignment_seq.pl method=get>"; while ( my $hit = $result->next_hit ) { $hitname = $hit->name(); while ( my $hsp = $hit->next_hsp ) { ...... print "<p><input type=checkbox name=alignment_seq value=$hitname>> " ....; } } print "<input type=submit value=Go>"; print "</form>"; .....
damit erhalte ich checkboxen mit unterschiedlichen value werten z.B
Code: (dl )

1 2

<input type=checkbox name=alignment_seq value=168> <input type=checkbox name=alignment_seq value=169>
Die values möchte ich in einem weiteren Perlskript verarbeiten.
Für jeden value suche ich später eine Seq. aus einer Datei.
Mein Problem ist ich weis nicht genau wie die checkbox Daten übertragen werden.
Also wird der Name alignment_seq mit mehren werten übertragen??
Sollte ich dann in einem zweiten Skript alignment_seq in ein array einlesen?
Skript2:
Code: (dl )

1 2

.... @alignment_seq = CGI::escapeHTML( $form->param("alignment_seq") );
Geht auch nicht!

Ich brauche irgendwie, alle Values in einer Variablen.
Hat jemand einen Tipp?
- +4 replies
- renee
  
  2010-03-16 11:35
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  Warum machst Du eigentlich beim einlesen der Parameter immer das CGI::escapeHTML()?
  
  Die Werte der Checkboxen kannst Du ganz einfach mit
  
  Code (perl): (dl )
  
  my @alignment_seqs = $form->param( 'alignment_seq' );
  
  bekommen. Durch den zwischengeschalteten Aufruf von CGI::escapeHTML() wird Dir hier das richtige Ergebnis verwehrt...
  OTRS-Erweiterungen (http://feature-addons.de/)
  Frankfurt Perlmongers (http://frankfurt.pm/)
  --
  
  Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
  Perl-Entwicklung: http://perl-services.de/
  - +3 replies
  - Gast Kai
    
    2010-03-16 12:22
    
    Danke, dir ..jetzt klappts
    Last edited: 2010-03-16 12:25:12 +0100 (CET)
    - +2 replies
    - Gast Kai
      
      2010-03-16 13:13
      
      Eine Frage habe ich dann doch noch:
      in den values der checkboxes dürfen keine Leerzeichen drin sein, oder?
      Sobald ein Leerzeichen drinnen ist wird der String vor dem Leerzeichen abgeschnitten?
      z.b. "168 x" wird als "168" übertragen?
      Last edited: 2010-03-16 13:15:13 +0100 (CET)
      - renee
        
        2010-03-16 13:22
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        Das HTML, das Du generierst sollte sauberer sein, dann klappt das auch mit Leerzeichen...
        
        Code (perl): (dl )
        
        print qq~<p><input type="checkbox" name="alignment_seq" value="$hitname">~;
        
        Ich habe die "" beim print durch qq~~ ersetzt, damit ich nicht jedes " mit \ schützen muss. Attribute in HTML-Tags sollten mit "" umgeben werden.
        OTRS-Erweiterungen (http://feature-addons.de/)
        Frankfurt Perlmongers (http://frankfurt.pm/)
        --
        
        Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
        Perl-Entwicklung: http://perl-services.de/

View all threads created 2010-03-16 11:15.