Hi Unix gurus,
I created this script to automate the copying of files daily from one server to another using the scp command.
-->
#!/bin/ksh
KEY="$HOME/.ssh/SSHKEY"
if ;then
echo "Private key not found at $KEY" >> $LOGFILE
echo "* Please create it with \"ssh-keygen -t dsa\" *" >>... (1 Reply)
Hi All,
I want a script to test folder permissions.( to alert me if a folder /abc/xyz does not have 775 permissions). i want to test /abc/xyz is having 775 permissions or not if not it has to alert me.
Please help me ASAP
Thanks in advance (4 Replies)
Hi,
I am trying to write a script which would go search and get the info from the logs based on yesterday timestamp and write yesterday logs in new file. The log file format is as follows:
""""""""""""""""""""""""""... (3 Replies)
I have the following script which writes the output of the scirpt in a log file in the same directory from which the script is run. I need the scipt to write the logs daily to a differnt directory with the date appended to the log on a daily basis.
The script is as follows...
.... (1 Reply)
This is the file structure:
DESKTOP/Root of Photo Folders/Folder1qweqwasdfsd/*jpg
DESKTOP/Root of Photo Folders/Folder2asdasdasd/*jpg
DESKTOP/Root of Photo Folders/Folder3asdadfhgasdf/*jpg
DESKTOP/Root of Photo Folders/Folder4qwetwdfsdfg/*jpg
DESKTOP/Root of Photo... (4 Replies)
Hi,
We have smb client running on two of the linux boxes and smb server on another linux system. During a backup operation which uses smb, read of a file was allowed while write to the same file was going on.Also simultaneous writes to the same file were allowed.Following are the settings in the... (1 Reply)
hi ..
i have a problem how to search file with date and version number(ms_2.0_dd/mm/yy_24)in folder.Here 24 is version number and compare the this file to other file which is in another folder and if does not match then copy this file to respective folder.Also copy different files in different... (1 Reply)
Hi Experts,
I want to write a script, based upon the following requirement
1) I am having 5 application
$ cd logs
$ ls -l
drwxr-xr-x 2 natraj nat 5.0K Sep 20 10:25 one
drwxr-xr-x 2 natraj nat 5.0K Sep 20 10:39 two
drwxr-xr-x 2 natraj nat 1.5K Sep 20 10:58... (4 Replies)
In the bash below the oldest folder in a directory is selected. If there are 3folders in the directory /home/cmccabe/Desktop/NGS/test and nothing is done to them (ie. no files deleted, renamed) then the bash correctly identifies f1 as the oldest. However, if something is done to the folder then... (4 Replies)
Appreciate help for the below issue.
Im using below code.....I dont want to attach the logs when I ran the perl twice...I just want to take backup with today date and generate new logs...What I need to do for the below scirpt..............
1)if logs exist it should move the logs with extention... (1 Reply)
Discussion started by: Sanjeev G
1 Replies
LEARN ABOUT DEBIAN
text::flow
Text::Flow(3pm) User Contributed Perl Documentation Text::Flow(3pm)NAME
Text::Flow - Flexible text flowing and word wrapping for not just ASCII output.
SYNOPSIS
use Text::Flow;
# use it on ASCII text ...
my $flow = Text::Flow->new(
check_height => sub {
my $paras = shift;
sum(map { scalar @$_ } @$paras) <= 10;
},
wrapper => Text::Flow::Wrap->new(
check_width => sub { length($_[0]) < 70 }
),
);
my @sections = $flow->flow($text);
# @sections will now be an array of strings, each string
# will contain no more than 10 lines of text each of which
# will be no longer then 70 characters long
# or use it on text in a PDF file ...
my $flow = Text::Flow->new(
check_height => sub {
my $paras = shift;
(sum(map { scalar @$_ } @$paras) * $pdf->get_font_height) < 200;
},
wrapper => Text::Flow::Wrap->new(
check_width => sub {
my $string = shift;
$pdf->get_string_width($string) < 100
},
)
);
my @sections = $flow->flow($text);
# @sections will now be an array of strings, each string
# will contain text which will fit within 200 pts and
# each line will be no longer then 100 pts wide
DESCRIPTION
This module provides a flexible way to wrap and flow text for both ASCII and non-ASCII outputs.
Another Text Wrap module!!?!?!
The main purpose of this module is to provide text wrapping and flowing features without being tied down to ASCII based output and fixed-
width fonts. My needs were for a more sophisticated text control in PDF and GIF output formats in particular.
METHODS
new (%params)
This constructs the new Text::Flow instance, and accepts parameters for the "wrapper" and "check_height" variables.
wrapper (?$wrapper)
This is the accessor for the internally help Text::Flow::Wrapper instance which is used by Text::Flow to wrap the individual lines.
check_height
This is the accessor for the CODE ref which is used to check the height of the current paragraph. It gets as an argument, an array-ref
of paragraphs, each of which is also an array-ref of text lines. The most common usage is shown in the SYNOPSIS above, but you can
really do anything you want with them. It is expected to return a Boolean value, true if the height is still okay, and false if the max
height has been reached.
flow ($text)
This method preforms the text flowing. It returns an array of strings which can be treated as complete blocks of text. It will handle
paragraph breaks and line breaks for you.
Introspection
meta
Returns the Moose meta object associated with this class.
TODO
I wanted to write some tests for using this with GD modules as well. I suppose we will have to wait until 0.02 for that.
SIMILAR MODULES
There are a bunch of other text wrapping and flowing modules out there, but they are all meant for use in ASCII outout only. This just
didn't work for my needs, so I wrote this one. If you need to wrap ASCII text and want to do it in a much simpler manner then this module
provides, then I suggest checking out those modules. This module is specifically made for when those other modules are no longer powerful
and flexible enough.
BUGS
All complex software has bugs lurking in it, and this module is no exception. If you find a bug please either email me, or add the bug to
cpan-RT.
AUTHOR
Stevan Little <stevan@iinteractive.com>
COPYRIGHT AND LICENSE
Copyright 2007 by Infinity Interactive, Inc.
<http://www.iinteractive.com>
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
perl v5.10.1 2007-05-21 Text::Flow(3pm)