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
DEVFS.RULES(5)						      BSD File Formats Manual						    DEVFS.RULES(5)

NAME
devfs.rules -- devfs configuration information DESCRIPTION
The devfs.rules file provides an easy way to create and apply devfs(8) rules, even for devices that are not available at boot. For devices available at boot, see devfs.conf(5). The format of this file is simple. Empty lines and lines beginning with a hash sign ('#') are ignored. A line between brackets denotes the start of a ruleset. In the brackets should be the name of the ruleset and its number, separated by an equal sign. Other lines are rule specifications as documented in devfs(8), in the section Rule Specification. These lines are prepended with ``rule'' and are passed to devfs(8) by the startup scripts of the system. It is important to put path elements that contain glob(3) special charac- ters between quotes. Rulesets should have a unique name and number. All rules that follow a ruleset declaration belong to that ruleset, until a new ruleset is started. One custom ruleset has to be enabled in /etc/rc.conf, otherwise it will not be applied to the /dev file system by the default system startup process. For example, to enable a ``localrules'' ruleset for the /dev file system, you would have to use something like this in your rc.conf file: devfs_system_ruleset="localrules" FILES
/etc/defaults/devfs.rules Default devfs.rules configuration file. /etc/devfs.rules Local devfs.rules configuration file. Rulesets in here override those in /etc/defaults/devfs.rules with the same ruleset number, otherwise the two files are effectively merged. EXAMPLES
To make all the partitions of da(4) devices readable and writable by their owner and the ``usb'' group, the following rule may be used: [localrules=10] add path 'da*s*' mode 0660 group usb The first line declares and starts a new ruleset, with the name localrules and the number 10. To give usbconfig(8) and libusb(3) enabled applications permission to all usb devices for their owner and the ``usb'' group, a similar rule may be used: add path 'usb/*' mode 0660 group usb SEE ALSO
glob(3), devfs(5), devfs.conf(5), devfs(8) AUTHORS
This manual page was written by Roland Smith <rsmith@xs4all.nl>. BSD
February 21, 2010 BSD
All times are GMT -4. The time now is 01:40 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy