command line perl — Perl script search | Perl programming

How to assign awk output to a variable?

May 15, 2010 By Admin

I just want the number of blocks, and I can get it with the following command in a bash shell on Solaris 10:

[root@pirlo-bge0 /var/tmp/test]# df | grep c0d0s3 | awk ‘{print }’
5762252
[root@pirlo-bge0 /var/tmp/test]#

When I try to assign the number to a variable in a shell or perl script, I get the whole line:

[root@pirlo-bge0 /var/tmp/test]# cat check_partition.pl
#! /usr/bin/perl

my $outVar = `df | grep c0d0s3 | awk -F ‘{print }’`;
print $outVar, "\n";
[root@pirlo-bge0 /var/tmp/test]# ./check_partition.pl
/opt/bmi (/dev/dsk/c0d0s3 ): 5762252 blocks 376600 files

[root@pirlo-bge0 /var/tmp/test]#

Is there a way to just get the number in the variable

Bookmark It

Hide Sites

Filed Under: command line perl Tagged With: bash shell, bmi, dsk, partition, pl, quot, solaris 10, test check, usr bin

in perl tk how do i align buttons on the same row?

May 14, 2010 By Admin

here’s (part of) my code:

my $but1 = $mw -> Button(-text => "1", -command =>\&push_1)->pack(-side => ‘left’);
my $but2 = $mw -> Button(-text => "2", -command =>\&push_2)->pack();
my $but3 = $mw -> Button(-text => "3", -command =>\&push_3)->pack(-side => ‘right’);

how do i align all the buttons on the top row together so they are at the top and on the same line.
(so reading left-right it has the 1button, the 2button, then the 3button
in perl tk

Bookmark It

Hide Sites

Filed Under: command line perl Tagged With: amp, button text, quot, tk

Tool for recording execution behaviour in detail for a program (script, compiled code etc.) or its children?

May 13, 2010 By Admin

Hi,
I am looking for a tool (command line linux / solaris) which can return a list of api calls at the kernel level (or C/C++ equivalent) for a given program and all its child processes. It should work with scripts (shell, perl, etc…), binaries, code being compiled etc. The basic idea is to profile the program runtime execution in a fine grained manner and figure out the values its reading/writing, files its reading and writing, libraries its accessing etc. to have an exhaustive description of its run.
Thanks,
Jason

Bookmark It

Hide Sites

Filed Under: command line perl Tagged With: api calls, binaries, child processes, execution, kernel level, libraries, linux, linux solaris, perl, reading and writing, scripts, shell, tool command

Korn Shell Puzzle?

May 12, 2010 By Admin

Korn Shell

The 26 alphabetic keys on a standard keyboard have been randomly swapped.

A user comes by and tries to type his name on the keyboard, pressing the key labeled with the letter he intends to type. Since the keys have been swapped, a different set of letters appears on the screen when he does this.

He looks at the new letters that have appeared on the screen and types those in, producing a new set of letters. He decides that it would be fun to continue doing this, and proceeds to keep typing in each new set of letters as they appear.

As it happens, after doing this a certain number of times, his real name will actually appear on the screen correctly. For example, given a particular swapping, the output might look like the following:

Jodt Dabn
Kafh Flcn
Dlmw Mgzn
Fgjq Jixn
Mike Korn

Given a particular name (e.g. "Mike Korn"), what is the maximum number of times the user might have to try typing in his name (or whatever has appeared on the screen) until his real name appears, if the manner in which the keys have been mixed up is unknown?

Write a program to compute this given a name as input. Your program should take a name (first name, last name; it should certainly not have any problem taking three-word names as well) as a command-line argument and output the answer:

$ ./korn Mike Korn
[the answer]

You may use any of the following programming languages:

* C++
* Java
* JavaScript
* OCaml/SML
* Perl
* PHP
* Python

For extra credit, you may submit additional solutions in the other languages as well as solutions in languages not listed here.

Bookmark It