Sponsored Content
Full Discussion: Perl question!
Top Forums Shell Programming and Scripting Perl question! Post 302486126 by m.d.ludwig on Friday 7th of January 2011 04:52:23 AM
Old 01-07-2011
Since a perlish solution was requested:
Code:
$\ = "\n";
$, = '';

while (<>) {
    chomp;

    if (my ($usb, $word) = m{^(USB\w+)\s+(.*)$}) {
        $U{$usb} = $word;
        next;
    }

    if (my ($usb, $word) = m{^START_PATH\s+(USB\w+)(\..*)$}) {
        $U{$usb} ||= '<undef>' unless defined $U{$usb};
        print $U{$usb}, $word;
    }
}

 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Question about Perl

Where can i find solid information about programming in Perl? Thank you in advance!!!:) (5 Replies)
Discussion started by: SolidSnake
5 Replies

2. Shell Programming and Scripting

Perl: tk question

When i run my perl/tk script, a perl window pops up behind the GUI window,, can this be hidden???? Also, can the Icon be changed, the Tk icon in every window??? (1 Reply)
Discussion started by: perleo
1 Replies

3. Shell Programming and Scripting

perl question

If I use 2 system commands in a script, will one finish before the next one starts? or will it start the first and the second at the same time? i.e. system("ps | grep rminer"); system("ls -al | grep 431"); (1 Reply)
Discussion started by: BG_JrAdmin
1 Replies

4. Shell Programming and Scripting

PERL question

Hello, pkzipc of a certain zip file yeilds the following in shell PKZIP(R) Version 6.0 FAST! Compression Utility for AIX Copyright 1989-2002 PKWARE Inc. All Rights Reserved. Registered Version PKZIP Reg. U.S. Pat. and Tm. Off. Patent No. 5,051,745 Viewing .ZIP: test.zip Length... (13 Replies)
Discussion started by: jerardfjay
13 Replies

5. Shell Programming and Scripting

another perl question

I copy and paste from the book but this thing is not working. I cannot figure out what is wrong with myline 9.. can someone please tell me # cat ./sort4.pl #!/usr/bin/perl -w use strict; use warnings; my $input = shift; my $output = shift; open(IN, '<', $input) or die... (4 Replies)
Discussion started by: hankooknara
4 Replies

6. Shell Programming and Scripting

Perl question regarding [ ]

Below program, I do not get why item I am looking for is , instead of . When I do $#text, i get the right value for $value1, but when I do , i get somsething4, instead of somsethingxxxxxxxxxxxxxxxxxxx(which is what I am looking for. when I do , I get empty.. why? what did I do wrong? can you... (2 Replies)
Discussion started by: hankooknara
2 Replies

7. Shell Programming and Scripting

another perl question

I fail to see how below answer is 1? can someone explain this for me? DB<3> $string = "The cat sat on the mat"; DB<4> $animal = ($string =~ m/The (.*) sat/); DB<5> print $animal; 1 (2 Replies)
Discussion started by: hankooknara
2 Replies

8. Shell Programming and Scripting

another perl question

I have a question regarding bulding a hash from a file which has below pattern I thought I could write something like this but clearly my syntax is way off $/ = "\n\n"; $" = "\n"; open(FILE, file1) || die; my %keymaster = ( ); while (<FILE>) { my $topinfo =~... (5 Replies)
Discussion started by: hankooknara
5 Replies

9. Shell Programming and Scripting

PERL Question ...

I am reading a file in perl script .. during the debug the $linein value is : linein : +ASM1,sys,||¬ |3Æqúoü;”ט|| from this line I am getting the tmepuser and password from above : ($tmpuser, $pwd) = ($linein =~ /^$server\s*,\s*(+)\s*,\|\|(.+)\|\|/sm); I am getting $tmpuser and... (2 Replies)
Discussion started by: talashil
2 Replies

10. Shell Programming and Scripting

Perl question about

Hello everybody, I am new at the forum and a total newbie when it comes to Unix. I am trying to see how I can add the ability to kill a user's processes? I want to add this to my Shel Script Add the code/process into a subroutine. Also, I would like to use an array to store the list... (0 Replies)
Discussion started by: kinelisch
0 Replies
DAHDI_REGISTRATION(8)					User Contributed Perl Documentation				     DAHDI_REGISTRATION(8)

NAME
dahdi_registration - Handle registration of Xorcom XPD modules in dahdi. SYNOPSIS
dahdi_registration [-s sortorder] [on|off] DESCRIPTION
Without parameters, show all connected XPDs sorted by physical connector order. Each one is show to be unregistered (off), or registered to a specific dahdi span (the span number is shown). All registerations/deregisterations are sorted by physical connector string. Span registration should generally always succeed. Span unregistration may fail if channels from the span are in use by e.g. asterisk. In such a case you'll also see those channels as '(In use)' in the output of lsdahdi(8). Parameters off -- deregisters all XPD's from dahdi. on -- registers all XPD's to dahdi. Options -s sort_order The sort order to use. If the option is not used, the sort order is taken from the environment variable XBUS_SORT and failing that: the hard-coded default of SORT_XPPORDER. The available sorting orders are documented in Dahdi::Xpp manual. Sample Output An example of the output of dahdi_registration for some registered Astribanks: $ dahdi_registration -s type XBUS-01 usb:0000153 usb-0000:00:10.4-2 XBUS-01/XPD-00: on Span 1 XBUS-01/XPD-01: on Span 2 XBUS-00 usb:0000157 usb-0000:00:10.4-4 XBUS-00/XPD-00: on Span 3 XBUS-00/XPD-01: on Span 4 XBUS-00/XPD-02: on Span 5 XBUS-00/XPD-03: on Span 6 XBUS-00/XPD-04: on Span 7 XBUS-00/XPD-05: on Span 8 XBUS-00/XPD-06: on Span 9 XBUS-00/XPD-07: on Span 10 XBUS-02 usb-0000:00:10.4-1 XBUS-02/XPD-00: on Span 11 XBUS-02/XPD-10: on Span 12 # Sorted: type FILES
/proc/xpp/XBUS-nn/XPD-mm/dahdi_registration Reading from this file shows if if the if the specific XPD is registered. Writing to it 0 or 1 registers / unregisters the device. This should allow you to register / unregister a specific XPD rather than all of them. perl v5.14.2 2011-07-11 DAHDI_REGISTRATION(8)
All times are GMT -4. The time now is 10:28 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy