Hi Gurus,
In my Cal output i want to cut the date of 2nd saturday how tyo achive this.
for eg in the below output i need that second saturday 13 to be cut.
crypto $ cal
January 2007
S M Tu W Th F S
1 2 3 4 5 6
7 8 9 10 11 12 13
14 15 16 17 18 19 20
21 22 23 24 25 26... (2 Replies)
Hello,
I am trying to output the values in an array to a file. The output needs to be formated such that each array value is left jusified in a field 8 character spaces long. Also, no more than 6 fields on a line. For example:
@array= 1..14;
Needs to be output to the file like so:
1 ... (4 Replies)
Dear All
I am stuck in one problem. Kindly help me.
I am taking below mention file as input file and want some op file as mention below.
Kindly send me all possible suggestion and query.
Thnaks
Jaydeep
bELOW IS THE INPUT FILE:
*** Connected to BSCANGR ***... (1 Reply)
Hi!
I'm working a program that collects 4 various inputs and format my output into tabular form.Problem is my table margins move with different character lengths.
Is there a way to fix my table margins even though the variables inside the table varies in length?
thank you very much...:( (1 Reply)
Hi all, I want to start a new topic on this matter
I have this script,
#!perl
use strict;
use warnings;
use Data::Dumper;
open my $log, '>', 'log-external.txt' or die "Could not open log: $!";
print $log "Subnet,Static,DHCP,Unused\n";
open my $dump, '>', 'dump.log' or die... (2 Replies)
Hello Team i have a file with following data (as columns).
I need implement a syntax like below for altering table
ALTER TABLE1 TABLENAME
ADD COLUMN COL1 CHAR(5) NOT NULL WITH DEFAULT
ADD COLUMN COL2 CHAR(5)
..
..
ADD COLUMN COLn CHAR(5) NOT NULL... (1 Reply)
if you want to parse the output from an autosys you can use the below
autorep -j Prefix_% | awk '{
if ($6 ~ /^/)
printf "%-20s \t\t %-20s\n",$1,$5 ;
else if ($6 ~ /^/)
printf "%-20s \t\t %-20s\n",$1,$6;
else
printf "%-20s \t\t %-20s\n",$1,$4
}' | awk '{
if ($2... (1 Reply)
I have a print file taken from the print spooler and I want to delete all the formatting leaving only the text. If you vi the file it shows "\304\304 ...." which translates into a printed line on print output.
I need to be able to edit and pass this file to another process
Thnaks (10 Replies)
Hi I am a newbie here. I tried searching for the solution but I guess I either didn't find it or there hasn't been one posted.
my problem is I spooled the results of a query into a .txt file. When I cat the file the formating looks great. All the columns are aligned. However once I mailx the... (2 Replies)
Hi Guys,
I was searching and landed up something here only.
This is the code and I want the formatted html in email but that is not working, anybody knows the reason why?
#!/bin/sh
set -x
DATE=`date -u`
# Print beginning of webpage
function html_header
{
cat <<END
... (5 Replies)
Discussion started by: bluemind2005
5 Replies
LEARN ABOUT DEBIAN
anyevent::aggressiveidle
AnyEvent::AggressiveIdle(3pm) User Contributed Perl Documentation AnyEvent::AggressiveIdle(3pm)NAME
AnyEvent::AggressiveIdle - Aggressive idle processes for AnyEvent.
SYNOPSIS
use AnyEvent::AggressiveIdle qw(aggressive_idle};
aggressive_idle {
... do something important
};
my $idle;
$idle = aggressive_idle {
... do something important
if (FINISH) {
undef $idle; # do not call the sub anymore
}
};
DESCRIPTION
Sometimes You need to do something that takes much time but can be split into elementary phases. If You use AE::idle and Your program is a
highload project, idle process can be delayed for much time (second, hour, day, etc). aggressive_idle will be called for each AnyEvent loop
cycle. So You can be sure that Your idle process will continue.
EXPORTS
aggressive_idle
Register Your function as aggressive idle watcher. If it is called in VOID context, the watcher wont be deinstalled. Be carrefully.
In NON_VOID context the function returns a guard. Hold the guard until You want to cancel idle process.
stop_aggressive_idle
You can use the function to stop idle process. The function receives idle process PID that can be received in idle callback (the first
argument).
Example:
use AnyEvent::AggressiveIdle ':all'; # or:
use AnyEvent::AggressiveIdle qw(aggressive_idle stop_aggressive_idle);
aggressive_idle {
my ($pid) = @_;
....
stop_aggressive_idle $pid;
}
The function will throw an exception if invalid PID is received.
Continuous process.
Sometimes You need to to something continuous inside idle callback. If You want to stop idle calls until You have done Your work, You can
hold guard inside Your process:
aggressive_idle {
my ($pid, $guard) = @_;
my $timer;
$timer = AE::timer 0.5, 0 => sub {
undef $timer;
undef $guard; # POINT 1
}
}
Until 'POINT 1' aggressive_idle won't call its callback. Feel free to stop_aggressive_idle before free the guard.
AUTHOR
Dmitry E. Oboukhov, <unera@debian.org>
COPYRIGHT AND LICENSE
Copyright (C) 2011 by Dmitry E. Oboukhov
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.10.1 or,
at your option, any later version of Perl 5 you may have available.
VCS
The project is placed on my GIT repo: <http://git.uvw.ru/?p=anyevent-aggressiveidle;a=summary>
perl v5.10.1 2011-03-01 AnyEvent::AggressiveIdle(3pm)