Suche mit Perl, bestimmte Endung ausschließen (Webframeworks, Sonstige Fragen zur Webprogrammierung mit Perl)

[thread]16069[/thread]

Suche mit Perl, bestimmte Endung ausschließen

Leser: 17

Articles: hide open all | hide show old branches

+6 replies
lakul

2011-03-14 11:34

User since
2011-03-14
3 Artikel
BenutzerIn

Hallo,

ich bin totaler Anfänger und muss leider umgehend zur Erfüllung einer Aufgabe folgendes realisieren.

Ich muss mit einem Perlskript eine bestimmt URL Scannen und nach allen Dateien suchen außer der Endung bmp. Also bmp soll von der Suche ausgeschlossen werden. Ich brauche kein komplettes Skript. Aber könnt ihr mir bitte den für Perl gültigen regulären Ausdruck sagen?

Vielen vielen Dank.

lakul
Last edited: 2011-03-14 11:43:53 +0100 (CET)
- renee
  
  2011-03-14 11:47
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  Villeicht hilft Dir das hier als "Arbeitsgrundlage":
  
  Code (perl): (dl )
  
  1 2 3 4
  
  for my $file ( qw(test.jpg hallo.html welt.bmp) ) { print "Ja: $file\n" if $file !~ /\.bmp\z/; print "Ja(2): $file\n" if $file =~ /.*\.(?!bmp)\z/; }
  
  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/
- +4 replies
- GwenDragon
  
  2011-03-14 11:52
  User since
  2005-01-17
  14748 Artikel
  Admin1
  Beispiel:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10
  
  test_ob_bmp("http://example.org/blah/blubb/TieFF.tiff"); test_ob_bmp("http://example.org/blah/blubb/BumP.bmp"); test_ob_bmp("http://example.org/blah/blubb/teggsd.txt"); sub test_ob_bmp { my $url = shift; if ($url !~ /\.bmp$/i) { # wenn kein Match auf bmp am Ende print "$url ist kein .bmp", "\n"; } }
  
  Last edited: 2011-03-14 11:53:53 +0100 (CET)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +3 replies
  - lakul
    
    2011-03-14 12:36
    User since
    2011-03-14
    3 Artikel
    BenutzerIn
    
    hallo,
    
    kann ich auch schreiben
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8
    
    test_ob_bmp("http://example.org/blah/"); sub test_ob_bmp { my $url = shift; if ($url !~ /\.bmp$/i) { # wenn kein Match auf bmp am Ende print "$url ist kein .bmp", "\n"; } }
    
    Also kann dieses Skript mir alle Dateien anzeigen, die nicht auf .bmp enden?
    - Taulmarill
      
      2011-03-14 13:09
      
      User since
      2004-02-19
      1750 Artikel
      BenutzerIn
      
      Ja, das sollte gehen. Du kannst hier die Negation auf zwei Arten vornehmen. Einmal so wie du es gelöst hast
      
      Code (perl): (dl )
      
      if ($url !~ /\.bmp$/i) {
      
      oder so:
      
      Code (perl): (dl )
      
      unless ($url =~ /\.bmp$/i) {
      
      Für welche Form du dich entscheidest, hängt einfach davon ab, was du lesbarer findest.
      $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
    - Dubu
      
      2011-03-14 15:07
      
      User since
      2003-08-04
      2145 Artikel
      ModeratorIn + EditorIn
      
      Das Skript zeigt dir gar keine Dateien an, sondern prüft nur für eine gegebene URL, ob sie auf ".bmp" (oder ".BPM", oder ".Bmp" etc.) endet.
      
      Ich vermute mal, dass du mit "URL scannen" meinst, dass du eine Webseite herunterladen und auf verlinkte Dateien prüfen möchtest. Dafür bräuchtest du noch einiges mehr. Dies ließe sich beispielsweise mit den Modulen LWP::Simple zum Herunterladen der Seite und HTML::LinkExtor zum Extrahieren der Links machen.

View all threads created 2011-03-14 11:34.