Ausgabe Zahlen -> if (Allgemeines zu Perl)

[thread]21230[/thread]

Ausgabe Zahlen -> if

Tags: perl5 Ähnliche Threads

Leser: 6

Articles: hide open all | hide show old branches

+5 replies
Gast Goof120

2021-09-28 13:56
Hi,

ich habe folgende frage:
Code (perl): (dl )

1 2 3 4 5

my @ente = map { "\/dev\/sd$_" } ('x', 'y', 'z'); foreach my $h (@ente) { my $output = "smartctl \-l ssd $h| grep Percent | cut \-c 29,30 "; }
hier bekomme ich für meine 3 Festplatten nun 3 Zahlen raus.

z.b

40
60
90

wenn eine Zahl über 89 ist will ich das er mir einen exit code 2 gibt

wie mache ich das?

if $output > 89 then exit 2?

das funktioniert aber nicht wie ich mir es vorstelle

modedit Editiert von GwenDragon: Code formatiert
Last edited: 2021-09-28 16:11:14 +0200 (CEST)
- +4 replies
- GwenDragon
  
  2021-09-28 15:50
  User since
  2005-01-17
  14533 Artikel
  Admin1
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8
  
  foreach my $h (@ente) { my $output = `smartctl \-l ssd $h| grep Percent | cut \-c 29,30 `; # .... weitere Kommandos .... if ($output > 89) { exit(2); } }
  
  Wenn du die ausgabe eiens Shellbefehls abfangen willst, setze in Backticks ` ` bzw. qx();
  Last edited: 2021-09-28 16:13:14 +0200 (CEST)
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
  - +3 replies
  - Gast Goof120
    
    2021-09-28 21:11
    cool danke das funktioniert wie ich es wollte. Vielen Dank.
    
    noch eine Ergänzungsfrage, sofern sie beantwortbar ist.
    
    ich frage ja gezielt hier den Wert ab von der SSD mit smartctl
    
    Code: (dl )
    
    1 2 3 4
    
    my @ente = map { "\/dev\/sd$_" } ('x', 'y', 'z'); foreach my $h (@ente) { my $output = "smartctl \-l ssd $h| grep Percent | cut \-c 29,30 ";
    
    kann ich mir hier den neben den "zahlen output" noch die platte ausgeben lassen von wem die Zahl kommt? also z.b.:
    
    40 sdx
    50 sdy
    20 sdz
    
    aber das nur als Zusatzfrage - die eigentlich frage wurde mir toll beantwortet danke!
    Last edited: 2021-09-28 22:39:08 +0200 (CEST)
    - +2 replies
    - GwenDragon
      
      2021-09-28 22:41
      
      User since
      2005-01-17
      14533 Artikel
      Admin1
      
      Code: (dl )
      
      1 2
      
      my $output = "smartctl \-l ssd $h| grep Percent | cut \-c 29,30 "; print "$output $h", "\n";
      
      Last edited: 2021-09-28 22:51:54 +0200 (CEST)
      die Drachin, Gwendolyn
      
      Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
      - Gast Goof120
        
        2021-09-28 23:24
        
        Danke!
        Last edited: 2021-09-29 09:14:01 +0200 (CEST)

View all threads created 2021-09-28 13:56.