Schrift
Wiki:Tipp zum Debugging: use Data::Dumper; local $Data::Dumper::Useqq = 1; print Dumper \@var;
Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl
[thread]7798[/thread]

Linux-Radiususerfile parsen



<< >> 4 Einträge, 1 Seite
OnkelBlacky
 2006-03-17 09:24
#63851 #63851
User since
2004-08-20
16 Artikel
BenutzerIn
[default_avatar]
einen wunderschönen Guten Morgen.

Ich suche entweder ein Perl-Modul oder einen kurze Hilfe wie ich ein Radius-Userfiles eines Linux-Einwahlservers parsen kann. Als Ziel ist es die Nutzerkennzeichen heraus zu bekommen

Hier ist ein bsp.-Auszug der Datei

-----------------
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
     tsteinba Called-Station-Id = "5471,6786"
             Fall-Through = Yes
    
     thomaier Called-Station-Id = "5471,6786"
             Fall-Through = Yes
    
     # Projekt:         PBL:
     # Eintrag: 14.01.1999 Dauer: *
     pkempa  Called-Station-Id = "5471,6786"
             Fall-Through = Yes
    
    
     # Projekt: ??????????
     # Eintrag: 27.03.2000 Dauer: ???????
     johahn        Called-Station-Id = "5471,6786"
             Fall-Through = Yes
    
    
     # Projekt:      PBL: 
     # Eintrag: 22.03.1999 Dauer: *
     kkluge  Called-Station-Id = "5471,6786"
             Fall-Through = Yes


-------------


Vielen Dank für eure Hilfe
Torsten\n\n

<!--EDIT|renee|1142582710-->
renee
 2006-03-17 10:18
#63852 #63852
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Wenn Du nur die Sachen wie thomaier haben willst, dann kannst Du das so machen:
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
#!/usr/bin/perl

use strict;
use warnings;

my $file = '/path/to/file.txt';
open(my $fh,"<",$file) or die $!;
while(my $line = <$fh>){
  if($line =~ /Called-Station-Id/){
    my $userid = (split(/\s+/,$line))[1];
    print $userid;
  }
}
close $fh;
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/
OnkelBlacky
 2006-03-17 11:10
#63853 #63853
User since
2004-08-20
16 Artikel
BenutzerIn
[default_avatar]
Leider kommt nur folgendes Ergebnis

------------------
Called-Station-IdCalled-Station-IdCalled-Station-IdCalled-Station-IdCalled-Station-IdCalle
d-Station-IdCalled-Station-IdCalled-Station-IdCalled-Station-IdCalled-Station-IdCalled-Sta
tion-IdCalled-Station-IdCalled-Station-IdCalled-Station-IdCalled-Station-IdCalled-Station-
IdCalled-Station-IdCalled-Station-IdCalled-Station-IdCalled-Station-IdCalled-Station-IdCal
led-Station-IdCalled-Station-IdCalled-Station-IdCalled-Station-IdCalled-Station-Id
-------------

kann da einer nochmals nachschauen

vielen dank torsten
OnkelBlacky
 2006-03-17 11:34
#63854 #63854
User since
2004-08-20
16 Artikel
BenutzerIn
[default_avatar]
habs selber jetzt gerade die Lösung

Trotzdem vielen Dank an die community

--
#!/usr/bin/perl

use strict;
use warnings;

my $file = '/path/to/file.txt';
open(my $fh,"<",$file) or die $!;
while(my $line = <$fh>){
if($line =~ /Called-Station-Id/){
my $userid = (split(/\s+/,$line))[0];
print $userid;
}
}
close $fh;
--
<< >> 4 Einträge, 1 Seite



View all threads created 2006-03-17 09:24.