Solved

perl send variable

Posted on 2013-12-18
4
239 Views
Last Modified: 2013-12-18
i have a code as given below which works on every minute .
for this line :
my $datadir     = '/var/flows/router1/2013/2013-12/2013-12-18';
bold part is date. and i want to generate this address in the script how should i do it ?

#!/usr/bin/perl

use strict;
use DBI;

# TODO: Change to fit your environment
my $datadir     = '/var/flows/router1/2013/2013-12/2013-12-18';
my $sqlhost     = 'localhost';
my $sqluser     = 'root';
my $sqlpass     = 'gbc1282';
my $sqldbname   = 'ip';
my $sqltable    = 'mytable';
my $coldatetime = 'timestampfromfile';

Open in new window

0
Comment
Question by:3XLcom
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 2
  • 2
4 Comments
 
LVL 84

Expert Comment

by:ozo
ID: 39728237
my $datadir     = '/var/flows/router1/2013/2013-12/2013-12-18';
print +(split'(/)',$datadir)[-5..-1];
0
 

Author Comment

by:3XLcom
ID: 39728239
i think you mis understood me

my $datadir     = '/var/flows/router1/'. '2013/2013-12/2013-12-18';


bold part will written by perl
0
 
LVL 84

Accepted Solution

by:
ozo earned 500 total points
ID: 39728241
# or is this what you meant?
use POSIX ;
my $datadir     = strftime"/var/flows/router1/%Y/%Y-%m/%Y-%m-%d",localtime;
0
 

Author Closing Comment

by:3XLcom
ID: 39728245
that is it thanks
please check out my other questions
0

Featured Post

Secure Your Active Directory - April 20, 2017

Active Directory plays a critical role in your company’s IT infrastructure and keeping it secure in today’s hacker-infested world is a must.
Microsoft published 300+ pages of guidance, but who has the time, money, and resources to implement? Register now to find an easier way.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Strange perl issue 6 132
perl to display a matrix report for 3-dimenional array 3 72
Removing file extension within a file. 4 102
Perl output collect 7 69
I've just discovered very important differences between Windows an Unix formats in Perl,at least 5.xx.. MOST IMPORTANT: Use Unix file format while saving Your script. otherwise it will have ^M s or smth likely weird in the EOL, Then DO NOT use m…
I have been pestered over the years to produce and distribute regular data extracts, and often the request have explicitly requested the data be emailed as an Excel attachement; specifically Excel, as it appears: CSV files confuse (no Red or Green h…
Explain concepts important to validation of email addresses with regular expressions. Applies to most languages/tools that uses regular expressions. Consider email address RFCs: Look at HTML5 form input element (with type=email) regex pattern: T…

735 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question