HTML2TEXT cat und sed in perl (gelöst) (HTML, CSS und Javascript)

[thread]19036[/thread]

HTML2TEXT cat und sed in perl [gelöst]

Leser: 13

Articles: hide open all | hide show old branches

+9 replies
kezall

2014-04-18 10:15

User since
2014-03-18
84 Artikel
BenutzerIn

Hallo Perles,

möchte gerne: html2text -utf8 -o $outTxt $pathHtml
in perl ausführen. Kann mir bitte jemand sage was zu tun ist?
Irgendwo ist mir: html2text.pl begegnet, ist es dafür vorgesehen? Vor allem benötige ich Pipes: sed - soll nur bis Marke arbeiten:
cat -s $outHtml || sed -e 'Familie/,$d -e '/'
und des Gleichen. Vorwiegend handelt es sich bei mir um BASH-Skript Umsätzungen. Danke
- +8 replies
- bianca
  
  2014-04-18 10:53
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  Systembefehle kann man mit system(), exec() oder Backticks ausführen.
  10 print "Hallo"
  20 goto 10
  - +7 replies
  - kezall
    
    2014-04-18 11:38
    User since
    2014-03-18
    84 Artikel
    BenutzerIn
    
    Danke vielmals,
    nur war mir nicht ganz klar mit welchem Systembefehl, und vor allem wie gestickt(!). Nach mehrfachem probieren habe ich es herausgefunden:
    
    Code: (dl )
    
    system (`html2text '-utf8' '-o' "$outHtml" "$pathHtml"`);
    
    Ab jetzt müsste es einfacher gehen - zumidest hoffe ich.
    
    Jetzt bleibt mir nur noch: cat mit sed bis Familie. Ich befürchte, dass cat nicht sinnvoll ist. Vermutlich zeilenweise lesen und mit sed begrenzen?
    - +6 replies
    - murphy
      
      2014-04-18 11:46
      
      User since
      2004-07-19
      1776 Artikel
      HausmeisterIn
      
      2014-04-18T09:38:42 kezall
      [...]
      
      Code: (dl )
      
      system (`html2text '-utf8' '-o' "$outHtml" "$pathHtml"`);
      
      [...]
      
      Du führst html2text aus und lässt die Ausgabe des Programmes ungeprüft wieder als Shellbefehl ausführen.
      
      Das halte ich für eine ganz schlechte Idee und für ein Sicherheitsloch, das nur darauf wartet, genutzt zu werden!
      When C++ is your hammer, every problem looks like your thumb.
      - +5 replies
      - kezall
        
        2014-04-18 13:02
        
        User since
        2014-03-18
        84 Artikel
        BenutzerIn
        
        Quote
        Du führst html2text aus und lässt die Ausgabe des Programmes ungeprüft wieder als Shellbefehl ausführen.
        
        Eine reine perl Anweisung sp. Behandlung wäre mir angenehmer aber kenne keine. Vor allem wollte ich die Ausgabe mit sed bis Marke abgrenzen.
        
        Quote
        Das halte ich für eine ganz schlechte Idee und für ein Sicherheitsloch, das nur darauf wartet, genutzt zu werden!
        
        Blutende Herzen - oh Gott, NSA und kein Ende, .. Schön und gut, obwohl ich Anfänger bin, würde ich gerne mehr darüber wissen. Geht es bitte hierzu etwas genauer? Wie könnte man dieses im perl umzusetzen?
        
        Code: (dl )
        
        1 2 3 4
        
        system ( `html2text '-utf8' '-o' "$outTxt" "$pathHtml"` ); # hier vermutlich Zeilenweise mit OPEN READ WRITE konstruieren?! system ( cat -s "$outHtml" || 'sed -e /Familie/,$d -e /^$/d' >> home/miro/tmp/newTxt.txt );
        
        +4 replies
        
        Raubtier
        
        2014-04-18 13:12
        
        User since
        2012-05-04
        1077 Artikel
        BenutzerIn
        
        Bitte lies:
        perldoc -f system
        perldoc perlop (Abschnitt über qx)
        
        Du kombinierst beides.
        
        In shell:
        VARIABLE=`kommando`
        
        entspricht in Perl:
        $variable = `kommando`;
        oder
        $variable = qx(kommando)
        
        In Shell:
        kommando
        
        entspricht in Perl
        system('kommando');
        
        Wenn du also in Perl schreibst
        system(`kommando`);
        
        dann entspricht das in Shell:
        `kommando`
        
        Das heißt, alles was dein Kommando ausgibt, wird als Kommando aufgefasst und ausgeführt.
        
        Wenn du also in shell
        cat irgendwas | sed blubb >> foobar
        
        in Perl haben willst, ist es:
        system("cat irgendwas | sed blubb >> foobar");
        
        Nur dass cat und sed eigentlich auch mit Perl-Bordmitteln gemacht werden könnten.
        Last edited: 2014-04-18 13:18:03 +0200 (CEST)
        
        +3 replies
        
        kezall
        
        2014-04-18 14:58
        
        User since
        2014-03-18
        84 Artikel
        BenutzerIn
        
        Besten Dank,
        die Hinweise werde ich mir gleich einlesen.
        
        Nachtrag: reichte nicht aus - das Komma in: /Familie/,$d kommt als Fehler raus, unabhängig der Ausgrenzung, d.h. bei minimalem Error-Ouput (Apostophe gemischt oder nicht).
        
        Code: (dl )
        
        system ( "cat -s $outTxt | sed -e /Familie/,$d -e /^$/ >> /home/miro/tmp/newTxt.txt" );
        
        Editiert von kezall: Nachtrag:
        Last edited: 2014-04-18 17:15:08 +0200 (CEST)
        
        +2 replies
        
        Raubtier
        
        2014-04-18 21:59
        
        User since
        2012-05-04
        1077 Artikel
        BenutzerIn
        
        2014-04-18T12:58:05 kezall
        
        Code: (dl )
        
        system ( "cat -s $outTxt | sed -e /Familie/,$d -e /^$/ >> /home/miro/tmp/newTxt.txt" );
        
        In Doppelquotes werden Variablen (von Perl) ersetzt! In deinem Fall sind das:
        * $outText
        * $d
        * $/ (der Input Record Separator, also wahrscheinlich ein Zeilenumbruch)
        
        Am besten machst du zum Debuggen:
        
        Code: (dl )
        
        1 2 3
        
        $kommando = "cat -s $outTxt | sed -e /Familie/,$d -e /^$/ >> /home/miro/tmp/newTxt.txt"; print "Es wird ausgeführt:\n$kommando\n"; # system($kommando);
        
        Wenn system mit einem Parameter aufgerufen wird, macht danach noch die Shell eine Ersetzung der Variablen. D.h. für die Shell muss das sed-Kommando ebenfalls gequotet werden.
        
        Allerdings würde ich gerade bei cat und sed das ganze einfach mit Perl-Bordmitteln lösen.
        
        kezall
        
        2014-04-19 07:47
        
        User since
        2014-03-18
        84 Artikel
        BenutzerIn
        
        Das Komma im sed -e /Familie/,$d -e /^$/ soll die Marke 'bis zum Text' setzen. Wie perl ist das alles neues Terrain und daher sehr interessant, vor allem mit deine Debuggen Empfehlung. Die Bashform mit system (..) falls es diese überhaupt gibt, würde mich dennoch interessieren. Aber auch mit Debuggen bekam ich es nicht raus. Können vermutlich nur Experten beantworten. Deine Perl-Empehlungen möglichst keine system() habe ich inzwischen fertig. Danke und Gruß.
        Last edited: 2014-04-20 09:48:56 +0200 (CEST)

View all threads created 2014-04-18 10:15.