I am haveing a problem, a friend helped me out with this script but i dont know how to add incrementing number for each movie in movie.list. this is what i have so far. any assistance would be great.
I have removed the GT and LT symbols so you can see what is going on in the array.
Hi Everyone,
#!/usr/bin/perl
use strict;
use warnings;
my @test=("a;b;qqq;c;d","a;b;ggg;c;d","a;b;qqq;c;d");
would like to split the @test array into two array:
@test1=(("a;b;qqq;c;d","a;b;qqq;c;d"); and @test2=("a;b;ggg;c;d");
means search for 3rd filed.
Thanks
find the... (0 Replies)
Hi everyone
I have one question about using array in perl. let say I have several log file in one folder.. example
test1.log
test2.log
test3.log
and the list goes on..
how to make an array for this file? It suppose to detect log file in the current directory and all the log file will... (3 Replies)
I have an array and two variables as below,
I need to check if $datevar is present in $filename.
If so, i need to replace $filename with the values in the array.
I need the output inside an ARRAY
How can this be done.
Any help will be appreciated. Thanks in advance. (2 Replies)
I have the following code and getting the error
./raytrac.bash: line 231: ((: 0++: syntax error: operand expected (error token is "+")
iarg = 0
iarg=0
narg=$# # Number of arguments passed.
echo "narg = $narg"
argsArr=("$@") # Set... (1 Reply)
I have the following proc.
proc get_add {arg1 arg2 arg3 arg4 arg 5 .. ... arg N }
{
}
i need to count the number of arguments and also i need those arguments stored in an array.
please help out
---------- Post updated at 06:33 PM ---------- Previous update was at 05:30 PM ----------
... (1 Reply)
Hello All,
In the below script i am trying to check and list the file names, get the last file with highest version number and then increment the version number when i create another file. Example: file1 is COBANK_v1.xml and file2 i want to put it as COBANK_v2.xml, to achieve this i am using awk... (15 Replies)
I have number in file which contains date and serial number:
2013101000.
The last two digits are serial number (00). So maximum of serial number is 100.
After reaching 100 it becomes 00 with incrementing 10 which is day with max 31.
after reaching 31 it becomes 00 and increments 10... (31 Replies)
Hi,
This is my first post here.
I am using cygwin on Windows 7.
I am starting with a data file with filename "name_1.ext", like "20180831_snapgenotypes_1.csv".
The "_1" before ".ext" is a version number. Integers (0-99) are sufficient. They don't have to be like "1.0.0".
The filename may... (2 Replies)
Hi
I am unix newbie looking for a unix bash script that can make it easier to do my code work. we have a code number for each code block that we want to incrementally assign. We have 10000 of these and it is very laborious to do this one by one.
so what we want is start from the top of the... (4 Replies)
Discussion started by: chamajid
4 Replies
LEARN ABOUT DEBIAN
swf::videostream
.::SWF::VideoStream(3pm) User Contributed Perl Documentation .::SWF::VideoStream(3pm)NAME
SWF::VideoStream - SWF Video class
SYNOPSIS
use SWF::VideoStream;
$videostream = new SWF::VideoStream("test.flv");
DESCRIPTION
SWF::VideoStream is a helper class useful for playing videos via SWF applications, either via embedded video data, or controlled by
ActionScript.
METHODS
$videostream = new SWF::VideoStream($filename)
Creates a SWF::VideoStream object. If the file can't be opened the constructor will return an empty object. The filename is not limited
to 'flv' extension.
$frames = $videostream->getNumFrames()
This method returns the number of video-frames of an object of SWF::VideoStream, this works only for embedded streams. In case of error
you will get result of -1.
$videostream->setDimension(width, height)
This method sets width and height for streamed videos, this works only on streamed videos (progressive download or rtmp).
$bool = $videostream->hasAudio()
A test whether the embedded FLV stream also has audio data.
$videostream->setFrameMode($mode)
If the mode == SWFVIDEOSTREAM_MODE_AUTO (default) on every SWF movie frame a video frame is added. In SWFVIDEOSTREAM_MODE_MANUAL mode,
the user needs to call the nextFrame() method to change the video's frame. This works only with embedded video streams. Does return
the previous mode or -1 if an invalid mode was passed.
$result = $videostream->nextFrame()
Switch to next video frame. Works only with embedded video streams. Returns -1 if an error happend. Here follows some demo code how to
use SWF::VideoStream objects (without ActionScript):
use SWF qw(:ALL); # to be lazy
$movie = new SWF::Movie();
$movie->setRate( 25 );
# $movie->setRate( 5 ); # e.g. 5 for slow motion
# here movie set background etc. etc.
#
$video=new SWF::VideoStream('MyTestVideo.flv');
die if (-1 == $v->getNumFrames()); # abort if something went wrong
#
$video->setFrameMode(SWF::Constants::SWFVIDEOSTREAM_MODE_MANUAL);
$video->seek(1000, 0); # for example only
$displayitem = $movie->add($video);
#
# 250 for a 10 seconds movie part (at rate of 25 per minute)
for(my $n = 0; $n < 250; ++$n)
{
$video->nextFrame();
$movie->nextFrame();
}
$movie->save("MyTestVideo.swf",9);
# that's all, folks
$result = $videostream->seek($frame, $whence)
This functions allows seeking $frame in video stream, returning the old video frame position. As value of $whence use one of the
following:
0 for seeking from beginning
1 for seeking from current position
2 for seeking from end of file
AUTHOR
developers of ming
ming.sourceforge.net
SEE ALSO
SWF, SWF::Action, SWF::Movie, SWF::MovieClip, SWF::Sound, SWF::SoundStream, SWF::Constants
perl v5.14.2 2011-10-26 .::SWF::VideoStream(3pm)