This is a breeze in Perl if you have Tie::Cycle installed. You tie a scalar to this class and provide the list of values to cycle through (1 to 9, 0). Then, whenever you access the scalar, the next element in the list is fetched. It becomes as easy as saying "print 'this' 132 times". 'this' cycles through that list and gets reset automatically.
Without this simple but wonderful module, you may try:
Just replace 132 with whatever number you need.
Last edited by elixir_sinari; 04-11-2013 at 01:04 PM..
This User Gave Thanks to elixir_sinari For This Post:
Hi there:)
Because of security requirements, It would be much better if I could truncate my logs in place using sed -i (or ?). I cant use the -i option on sed in my environment.
Can anyone help a DBA? (5 Replies)
Is it possible using just korn shell script to display a variable on the screen that is constantly changing in on place on the screen, to tell it in coordinates or something? In a loop, echo will print a new line each time, can I make it a static position? Thanks (7 Replies)
i need to output an ls command to a file but also capture any errors from that command and output them to a log file and the screen.
if it's only possible to output them to a log file and not the screen then that's fine.
this is what i've tried so far, but it won't populate log.txt. i've... (16 Replies)
exam is a ksh script. In command line I enter: exam 3 param_2 param_3 param_4.
In exam how can I get the value of the parameter which position is specified by the first argument.
Simply doing this DOES NOT work:
offset=$1
value=$$offset
can you figure out any possible way to interpret a... (5 Replies)
Hi All,
I have a file with more than 2000 columns and I would like to print each column 3 times, so that I will get a file like col1 col1 col1 col2 col2 col2 ........coln coln coln.
I have tried the following code:
awk '{for(i=1; i<=NF; i++) {s=s FS $i,$i,$i} print s;s=""}' input >... (2 Replies)
Hey All,
I want want to print a string N times the number N before it.
Like i have "20 hello".
so i want to print
hello
hello
hello
.
.
.
.
. 20 times..
Please help me.. I am not able o figure out.. how to do the same? (8 Replies)
Hi All,
I have problem in the middle of implementing to users, whereby the complaint is all about the decimal place which is too long. I need two decimal places only, but the outcome from command is always fixed to 6.
See the sample :
before:
Sort Total
Site Sort SortName Parts ... (3 Replies)
Discussion started by: horsepower
3 Replies
LEARN ABOUT DEBIAN
tie::scalar
Tie::Scalar(3perl) Perl Programmers Reference Guide Tie::Scalar(3perl)NAME
Tie::Scalar, Tie::StdScalar - base class definitions for tied scalars
SYNOPSIS
package NewScalar;
require Tie::Scalar;
@ISA = qw(Tie::Scalar);
sub FETCH { ... } # Provide a needed method
sub TIESCALAR { ... } # Overrides inherited method
package NewStdScalar;
require Tie::Scalar;
@ISA = qw(Tie::StdScalar);
# All methods provided by default, so define only what needs be overridden
sub FETCH { ... }
package main;
tie $new_scalar, 'NewScalar';
tie $new_std_scalar, 'NewStdScalar';
DESCRIPTION
This module provides some skeletal methods for scalar-tying classes. See perltie for a list of the functions required in tying a scalar to
a package. The basic Tie::Scalar package provides a "new" method, as well as methods "TIESCALAR", "FETCH" and "STORE". The Tie::StdScalar
package provides all the methods specified in perltie. It inherits from Tie::Scalar and causes scalars tied to it to behave exactly like
the built-in scalars, allowing for selective overloading of methods. The "new" method is provided as a means of grandfathering, for classes
that forget to provide their own "TIESCALAR" method.
For developers wishing to write their own tied-scalar classes, the methods are summarized below. The perltie section not only documents
these, but has sample code as well:
TIESCALAR classname, LIST
The method invoked by the command "tie $scalar, classname". Associates a new scalar instance with the specified class. "LIST" would
represent additional arguments (along the lines of AnyDBM_File and compatriots) needed to complete the association.
FETCH this
Retrieve the value of the tied scalar referenced by this.
STORE this, value
Store data value in the tied scalar referenced by this.
DESTROY this
Free the storage associated with the tied scalar referenced by this. This is rarely needed, as Perl manages its memory quite well. But
the option exists, should a class wish to perform specific actions upon the destruction of an instance.
Tie::Scalar vs Tie::StdScalar
"Tie::Scalar" provides all the necessary methods, but one should realize they do not do anything useful. Calling "Tie::Scalar::FETCH" or
"Tie::Scalar::STORE" results in a (trappable) croak. And if you inherit from "Tie::Scalar", you must provide either a "new" or a
"TIESCALAR" method.
If you are looking for a class that does everything for you you don't define yourself, use the "Tie::StdScalar" class, not the
"Tie::Scalar" one.
MORE INFORMATION
The perltie section uses a good example of tying scalars by associating process IDs with priority.
perl v5.14.2 2010-12-30 Tie::Scalar(3perl)