© 2023 PodTECH IO
All rights reserved.

Get in Touch

Perl

Perl Push Array

Perl Push Array A slightly more interesting kind of variable is the array variable which is a list of scalars (ie numbers and strings). Array variables have the same format as scalar variables except that they are prefixed by an @ symbol. The statement @food = (“apples”, “pears”, “eels”); @music = (“whistle”, “flute”); assigns a […]

MYSQL

Select next available ID

Select next available ID ## Select the next available UID ## Do not delete users from unixuid and unix gid as there id’s may get re-used ######################################## [sql] SELECT min( r1.uid ) +1 AS next_available_uid FROM unixuid AS r1 LEFT OUTER JOIN unixuid AS r2 ON r2.uid = r1.uid +1 WHERE r1.uid >200 AND r2.uid […]

UNIX

Shell, KSH Read Variables

Shell, KSH Read Variables Read in a Variable From a user we read with: read var. Then the users can type something in. One should first print something like: [bash] print -n “Enter your favorite haircolor: “; read var; print “”. [/bash] The -n suppresses the newline sign. Read into a File Line for Line […]

Perl

Pass Parameters to Perl Script

Pass Parameters to Perl Script Perl command line arguments stored in the special array called @ARGV. ARGV example Use $ARGV[n] to display argument. Use $#ARGV to get total number of passed argument to a perl script. For example, if your scriptname is foo.pl and you called script as follows: ./foo.pl one two three You can […]

UNIX

change passwd – permission denied (NIS)

Change passwd – permission denied (NIS) I setup a new NIS server and put the NIS source files in /var/yp/src/ The command line “passwd” gave me a permission denied when changing an NIS user’s password. A restart of yp fixed the problem for me.. Eventually I restarted NIS with: [bash] /usr/lib/netsvc/yp/ypstop /usr/lib/netsvc/yp/ypstart [/bash]

Perl

Perl Split

Perl Split A very useful function in Perl is split, which splits up a string and places it into an array. The function uses a regular expression and as usual works on the $_ variable unless otherwise specified. The split function is used like this: [perl] $info = “Caine:Michael:Actor:14, Leafy Drive”; @personal = split(/:/, $info); […]