StringCompare Problem (Allgemeines zu Perl)

[thread]18946[/thread]

StringCompare Problem

Tags: perl5 Ähnliche Threads

Leser: 14

Articles: hide open all | hide show old branches

+5 replies
PROXEN

2014-03-05 22:31
User since
2013-07-23
21 Artikel
BenutzerIn
Hallo Leute,

ich erzeuge remote eine Testdate 'toch test' als Returnwert bekomme ich in $c dies zurück "[bw@localhost ~]$ "
1. ein Vergleich mit eq funktioniert nicht - weiß nicht warum? (wegen Sonderzeichen @, Leerzeichen?? - keine Ahnung??)
2. auch der Reguläre Ausdruck funktioniert nicht ??
3. der gleiche Reguläre Ausdruck funktioniert wenn '[bw@localhost ~]$ ' hardcodiert in $c hinterlegt ist.
Ich denke es muss mit den Sonderzeichen zu tun haben - stehe auf der Leitung.

thx

Script:
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

use strict; use warnings; use Net::SSH::Expect; my $ssh = Net::SSH::Expect->new( host => '10.0.0.9', user => 'bw', password => 'test12', raw_pty => 1 ); my $login_output = $ssh->login("login:","password:",1); my $c = $ssh->exec("touch test"); print "----->".$c."<---"; print "\n"; if ($c eq '[bw@localhost ~]$ ' ){ print "1 gefunden\n"; } if($c =~ /^\[(.)*\@(.)*\ \~\]\$ $/){ print "2 gefunden!\n"; }else { print "2 nicht gefunden!\n"; } $c = '[bw@localhost ~]$ '; if($c =~ /^\[(.)*\@(.)*\ \~\]\$ $/){ print "3 gefunden!\n"; }else { print "3 nicht gefunden!\n"; }
Ausgabe
Code: (dl )

1 2 3

--------->[bw@localhost ~]$ <---------- 2 nicht gefunden! 3 gefunden!
- +4 replies
- topeg
  
  2014-03-05 22:40
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  Benutze mal Data::Dumper zur Ausgabe:
  
  Code (perl): (dl )
  
  1 2 3
  
  use Data::Dumper; $Data::Dumper::Useqq=1; print Dumper($c);
  
  Wahrscheinlich gibt es noch nicht darstellbare Zeichen wie \000. Es kann auch eines der anderen Zeichen mit einem Wert kleiner 8 sein.
  
  EDIT:
  Und die Regexp ist etwas seltsam.
  
  Code (perl): (dl )
  
  $c =~ /^\[(.)*\@(.)*\ \~\]\$ $
  
  (.)* sagt finde ein beliebiges Zeichen keinmal oder beliebig häufig und schreib das Zeichen in $1. Was du wohl eher willst ist:(.*) finde einen beliebig langen String von Zeichen und schreibe den String in $1
  
  Also:
  
  Code (perl): (dl )
  
  $c =~ /^\[(.*)\@(.*) ~\]\$ $
  
  Last edited: 2014-03-05 22:49:19 +0100 (CET)
  - +3 replies
  - PROXEN
    
    2014-03-05 23:21
    User since
    2013-07-23
    21 Artikel
    BenutzerIn
    
    THX für den Tip mit dem Dumper-> das kommt raus:
    
    Code: (dl )
    
    1 2
    
    print Dumper($c); $VAR1 = "\e]0;bw\@localhost:~\a[bw\@localhost ~]\$ ";
    
    ?? keine Ahnung was das soll, wie das zustande kommt - hast du dafür eine Erklärung -> REGEXP sowas?
    if($c =~ /^\[(.*)\@(.*)\s\~\]\$\s$/){
    
    THX
    - +2 replies
    - topeg
      
      2014-03-06 00:00
      
      User since
      2006-07-10
      2611 Artikel
      BenutzerIn
      
      \e]0;bw\@localhost:~\a
      Das ist eine Terminal-Kontrollsequenz.
      Kontrollsequenzen, dienen dazu in Terminals die Farbe von Zeichen oder dem Hintergrund zu setzen, eine Schriftart zu Selektieren, oder den Cursor zu positionieren.
      Am bekanntesten und am meisten Implementiert ist "VT100" Der Name bezeichnet ein Computer aus den 1980ger Jahren. Dieser implementierte als erster diese Form der Escape-Sequenzen.
      Nun kann ein Terminal heute mehr als damals und es wurden weitere Sequenzen implementiert (ANSI hat eine Reihe dieser Sequenzen Standardisiert). Die von dir gezeigte soll den Titel des Fensters setzen in dem die Terminalemulation läuft. Die Entwickler von XTERM Haben das als erste Implementiert. Viele andere Entwickler haben es übernommen. Die Sequenz oben sagt Speziell: Setze den Titel des Terminalfensters auf bw@localhost:~ und gebe einen Ton aus. \a ist ein ASCII Steuerzeichen und bewirkt die Ausgabe eines Tones.
      
      Was die RegExp betrifft. Versuche mal:$c =~ /\[(.*)\@(.*)\s+~\]\$/ Das sollte finden wonach du suchst. Versuch immer nur soviel zu definieren, das der Match gerade eben so übereinstimmt. Schreibst du zu viel in die RegExp kann es sein, das sie zwischendurch einfach nichts findet, weil sich eine Kleinigkeit ändert.
      
      Du kannst eine Teminalemulation wie Term::VT102 benutzen um die Steuersequenzen zu Parsen und zu interpretieren.
      - PROXEN
        
        2014-03-06 09:59
        
        User since
        2013-07-23
        21 Artikel
        BenutzerIn
        
        Hallo,
        
        THX - für deine INFO - auf einem anderen Server (anderes Betriebssystem bekommen) ich "nicht gefunden!".
        Es muss mit dem ^ zusammenhängen - wenn ich es weglasse kommt gefunden - aber der Dumper zeigt mir kein Zeichen davor an, gibts da noch was anderes?
        
        Code: (dl )
        
        1 2 3 4 5 6
        
        print Dumper($c); if($c =~ /^\[(.*)\@(.*)\s\~\]\$\s$/){ print " gefunden!\n"; }else { print " nicht gefunden!\n"; }
        
        Code: (dl )
        
        1 2
        
        $VAR1 = '[bw@localhost ~]$ '; nicht gefunden!

View all threads created 2014-03-05 22:31.