extract string (Allgemeines zu Perl) - Perl-Community.de

Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl

2024-04-27 14:35:33
Europe/Berlin
Einloggen (Registrieren)
- Einstellungen
- Statistics
Jemand zu Hause?
0 Benutzer online
1 Gast

[thread]17777[/thread]

submit to reddit

extract string

Tags: perl5 regex Ähnliche Threads

Leser: 17

Articles: hide open all | hide show old branches

+18 replies
Gast Graf Herschel

2012-09-25 14:12

Hallo

Ich würde gerne vom string 'http://xxx' oder 'mms://xx' den Protokollheader als z.B. 'http' extrahieren wenn es 'http://' entspricht. Das ist sicherlich simpel, aber nach einigen Suchresultaten im Netz wie substr(), grep, match, foreach und vieles mehr kenne ich mich nicht mehr aus. Vielleicht erbarmt sich jemand meiner. Danke!

modedit Editiert von GwenDragon: Protokoll-Beispiele in Code(inline) gesetzt; Bitte Protokolle nicht als einfachen Text einfügen, da das Forum versucht draus Links zu erzeugen.
Last edited: 2012-09-25 15:00:11 +0200 (CEST)
- +17 replies
- Linuxer
  
  2012-09-25 14:22
  User since
  2006-01-27
  3870 Artikel
  HausmeisterIn
  hi,
  
  ich versteh Dich zwar nicht so recht, aber hier wäre eine Möglichkeit...
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12
  
  my @strings = ( 'http://foo.example.org/', 'mms://bar.example.org/', 'https://foobar.example.org/', 'http:///tmp/foobar.txt', ); for my $str ( @strings ) { if ( substr($str,0,8) eq 'http:///' ) { print "Treffer 'http' bei $str\n"; } }
  
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - +16 replies
  - Gast Graf Herschel
    
    2012-09-25 14:32
    
    Danke
    
    Ich möchte von einem string wie 'ftp://blabla' oder 'http://blabla' das 'ftp' oder 'http' wenn den Kriterien 'xyz://' entspricht. (im obigen Beispiel habe ich ein '/' zuviel).
    
    modedit Editiert von GwenDragon: Code(inline) bei Protokoll hinzugefügt
    Last edited: 2012-09-25 15:02:02 +0200 (CEST)
    - +14 replies
    - betterworld
      
      2012-09-25 14:38
      
      User since
      2003-08-21
      2613 Artikel
      ModeratorIn
      
      Code (perl): (dl )
      
      1 2 3 4 5 6
      
      my $string = 'http://blah/'; my ($proto) = $string =~ m#^([a-z]+)://#; if (defined $proto) { print "Dies ist ein $proto-Link\n"; }
      
      Hierbei wird ein regulärer Ausdruck benutzt, wobei der Unterausdruck, der in runden Klammern steht, dazu dient, den Teil mit den Buchstaben zurückzugeben und in $proto abzuspeichern.
      
      Ferner gibt es auch CPAN-Module wie URI
      Last edited: 2012-09-25 14:41:34 +0200 (CEST)
      Lieblingsmodule: IPC::System::Simple, Path::Class
      - +11 replies
      - Gast Graf Herschel
        
        2012-09-25 15:05
        
        Funktioniert! Großes Dankeschön dafür. Module URI habe ich mir angesehen, wie man jedoch damit einen protocol_header zurückbekommt bleibt im Dunkeln. Sowie überhaupt die Modul Beschreibungen auf diesen Seiten für einen FrühstücksPerler kaum hilfreich sind.
        
        Noch eine kurze Frage.
        Gibt es in diesem Fall einen Unterschied zwischen:
        if (defined $proto)
        oder
        if ($proto)
        
        ?
        Last edited: 2012-09-25 15:22:22 +0200 (CEST)
        
        +9 replies
        
        pq
        
        2012-09-25 15:24
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        das steht doch in der dokumenation.
        
        beispiel:
        
        Code (perl): (dl )
        
        1 2 3 4 5
        
        use URI; my $u = URI->new("http://foo.example.org/"); say $u->scheme; __END__ http
        
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        +8 replies
        
        Gast Graf Herschel
        
        2012-09-25 15:56
        
        Habe ich probiert. Bei uris für bussysteme am localhost z.B.
        
        Code: (dl )
        
        cdda://, alsa://
        
        oder uris für lokale devices wie
        
        Code: (dl )
        
        satell:// oder dvb://
        
        liefert $u->scheme nichts, manchmal abgekürzt oder mit ':'. Die Lösung von betterworld ist perfekt! Danke euch allen.
        Last edited: 2012-09-25 16:00:06 +0200 (CEST)
        
        +7 replies
        
        Linuxer
        
        2012-09-25 16:03
        
        User since
        2006-01-27
        3870 Artikel
        HausmeisterIn
        
        Hm,
        
        wie hast Du das getestet?
        
        Weil hier funktioniert's:
        
        Code: (dl )
        
        1 2 3 4
        
        $ perl -MURI -wle 'my $uri = URI->new( "alsa://" ); print $uri->scheme;' alsa $ perl -MURI -wle 'my $uri = URI->new( "cdda://" ); print $uri->scheme;' cdda
        
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
        
        +6 replies
        
        Gast Graf Herschel
        
        2012-09-25 16:39
        
        Das Problem liegt schon im Vorfeld.
        Wenn ich einen stream vom tv.server will, benötige ich
        
        Code: (dl )
        
        $ perl -MURI -wle 'my $uri = URI->new("dvb://tv.mydomain.com:11300/rsat.ts"); print $uri->host;'
        
        Funktioniert nicht, ich weiß nicht warum. Den host tv.mydomain.com benötige ich.
        
        Code: (dl )
        
        $ perl -MURI -wle 'my $uri = URI->new("ftp://tv.mydomain.com:11300/rsat.ts"); print $uri->host;'
        
        Funktioniert, uri ist aber so nicht brauchbar.
        
        Wenn ich diesen Fehler abfangen könnte (ich weiß leider nicht wie):
        Can't locate object methode "host" via .....
        Dann würde als nächster Schritt auch auch das $uri->scheme funktionieren.
        Last edited: 2012-09-25 16:40:25 +0200 (CEST)
        
        pq
        
        2012-09-25 16:42
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        wenn es nur darum geht, den fehler abzufangen, kannst du einfach eval benutzen. kürzeste möglichkeit:
        my $host = eval { $uri->host };
        
        edit: oder ohne eval höflich bei $uri anfragen:
        
        Code (perl): (dl )
        
        1 2 3 4
        
        my $host; if ($uri->can("host")) { $host = $uri->host; }
        
        Last edited: 2012-09-25 16:43:25 +0200 (CEST)
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        +4 replies
        
        Linuxer
        
        2012-09-25 18:01
        
        User since
        2006-01-27
        3870 Artikel
        HausmeisterIn
        
        Hi,
        
        Code: (dl )
        
        $ perl -MURI -wle 'my $uri = URI->new("dvb://tv.mydomain.com:11300/rsat.ts"); print $uri->host;'
        
        Das läuft in einen Fehler, weil:
        URI lädt für die verschiedenen Schemata entsprechende Module nach; z.B. URI::http, URI::ftp oder URI::ldap.
        Für unbekannte Schemata (wie eben hier dvb) wird ein URI::_foreign benutzt, welches von URI::_generic erbt. Diese zwei stellen aber keine host-Methode bereit. Daher wird ein entsprechender Fehler generiert.
        
        Die host-Methode wird von URI::_server bereitgestellt.
        
        Nachdem mir einige unschöne und relativ "brutale" Varianten durch den Kopf gingen, kam ich nach einem Blick in die Doku auf folgende Variante:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
        
        #! /usr/bin/perl use strict; use warnings; use URI; my $uri = URI->new("dvb://tv.mydomain.com:11300/rsat.ts"); if ( !$uri->can('host') ) { # treat it like a http scheme, save the old one my $scheme = $uri->scheme('http'); print $uri->host; # restore old scheme $uri->scheme($scheme); } __END__
        
        Ob das so 100% sauber ist, sei mal dahin gestellt. Aber auf jeden Fall sauberer als das, was mir zwischenzeitlich durch den Kopf ging ;-)
        Last edited: 2012-09-25 18:02:38 +0200 (CEST)
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
        
        +2 replies
        
        topeg
        
        2012-09-25 18:16
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Man muss nur ein neues Scheme für URI erzeugen:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12
        
        #! /usr/bin/perl use strict; use warnings; use URI; my $uri = URI->new("dvb://tv.mydomain.com:11300/rsat.ts"); print $uri->host; # erzeuge neues URI Scheme package URI::dvb; use parent "URI::http"; 1;
        
        Last edited: 2012-09-25 18:20:21 +0200 (CEST)
        
        Linuxer
        
        2012-09-25 21:59
        
        User since
        2006-01-27
        3870 Artikel
        HausmeisterIn
        
        Das ist natürlich auch eine schöne Variante.
        
        So kann man sich die "Vorlage" wählen, die am besten passt und ggfs. noch Methoden dazudefinieren oder auch "ersetzen".
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
        
        Gast Graf Herschel
        
        2012-09-25 18:25
        
        Aha, nun verstehe ich.
        Falls das protocol unbekannt ist da host nicht verfügbar, gibst du ihm provisorisch einen anderen protocol header um z.B. das modul URI::http laden zu können, das alles was ich benötige anbietet. Danach reset nach original.
        
        DAS IST DOCH PHÄNOMENAL!
        
        Mit RegExp alle schemata abzudecken bereitet mir weitaus mehr Bauchweh als dein hack. So mach ich das, bin höchst entzückt!
        Last edited: 2012-09-25 18:29:25 +0200 (CEST)
        
        murphy
        
        2012-09-25 15:34
        
        User since
        2004-07-19
        1776 Artikel
        HausmeisterIn
        
        Guest Graf Herschel
        [...]
        Noch eine kurze Frage.
        Gibt es in diesem Fall einen Unterschied zwischen:
        if (defined $proto)
        oder
        if ($proto)
        
        ?
        
        Natürlich gibt es einen Unterschied zwischen "$proto ist als logischer Wert wahr" und "$proto hat einen definierten Inhalt".
        
        In dieser speziellen Situation macht es aber keinen praktischen Unterschied. Die Anwendung des von betterworld angegebenen regulären Ausdrucks stellt sicher, dass $proto entweder undefiniert ist (und damit auch "falsch"), oder eine nicht leere Zeichenkette bestehend aus Kleinbuchstaben (und damit auch "wahr").
        When C++ is your hammer, every problem looks like your thumb.
      - +2 replies
      - GwenDragon
        
        2012-09-25 16:44
        
        User since
        2005-01-17
        14536 Artikel
        Admin1
        
        Dein Schnippsel greift nicht bei allen URI-Schmemata, nur bei solchen ohne Authority-Teil (also //.....).
        http://tools.ietf.org/html/rfc3986
        http://www.iana.org/assignments/uri-schemes.html
        
        Aber so wollte es wohl der TE.
        
        //EDIT: Links hinzugefügt
        Last edited: 2012-09-25 16:47:13 +0200 (CEST)
        die Drachin, Gwendolyn
        
        Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
        
        Gast Graf Herschel
        
        2012-09-25 17:10
        
        Ja, so ist es wohl.
        Ich war der Meinung, module URI ist nur ein praktischer uri Zerpflücker, ist aber wohl nicht so. Die uri dvb://xyz, wie oben angegeben, entspricht ETSI TS 102 851. So schliesst sich der Kreis und ich bin wieder bei RegExp zum SelberZerlegen. Wie auch immer, euch allen vielen Dank!
        Last edited: 2012-09-25 17:24:13 +0200 (CEST)
    - GwenDragon
      
      2012-09-25 15:01
      
      User since
      2005-01-17
      14536 Artikel
      Admin1
      
      Bitte keine Protokolle als reinen Text im Forum eingeben. Stattdessen Code oder Code(inline)-Tags verwenden!
      die Drachin, Gwendolyn
      
      Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel

View all threads created 2012-09-25 14:12.