I have a quick perl matching question. I have the following file, and I want to use perl to search through the 2nd column and see if it finds any of the month names (e.g.: Jan, Feb, Mar, ... Dec).
Here's the file I'm trying to search, and here's the code I have so far. Any help would be super helpful! Thanks
Code:
lu Aug 2006 -122.24 48.76
lu AuG 2006 -122.24 48.76
21 2 2006 -122.24 48.76
2A Jul 2008 -117.8617 34.7017
21 Ma2 2006 -112.24 48.76
Code:
#!/usr/bin/perl -w
#
use strict;
use warnings;
my $file = 'sample1.xyt';
open my $info, $file or die "Could not open $file: $!";
my $x1 = $_;
my @cols = split(" ", $x1);
#Test: to see if col2 has values that match the following EXACTLY: Jan, Feb, Mar, Apr, Jun, Jul, Aug, Sep, Oct, Nov, Dec AND ALSO check that there are no numbers in this column. If these criteria is not met, print the bad line
if ($cols[1] =~ /^[0-9]+$/) { #checks for all numbers in the month
print "I have a bad month here - $x1";
} elsif ($cols[1] =~ /^[a-zA-Z]+$/) { #checks for all letters
#check in here for matches!
@months = ("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec");
##Not sure what to do here! :-(
} else {
print "I have a bad month here - $x1";
}
} else {
print "I have a bad month here - $x1";
}
}
close $info;
Last edited by Scott; 06-12-2013 at 08:15 PM..
Reason: Please use CODE tags not ICODE tags
Just a super quick question:
how do you put a link in your php code.
I want to make a link to something in /tmp directory.
i.e. how do you put a href into php, I think it's done a bit differently.
thanks
john (1 Reply)
Hey everyone,
I am a newbie with perl, and I just have a quick question that may seem really stupid. Like I said, I'm new, so please bear w/ me :)
I'm trying to make a really simple program where there are two inputs. First one is just a string, and the next one is a number. Once the user... (7 Replies)
i can only find the first occurance of a pattern how do i set it to loop untill all occurances have changed.
#! /usr/bin/perl
use POSIX;
open (DFH_FILE, "./dfh") or die "Can not read file ($!)";
foreach (<DFH_FILE>) {
if ($_ !~ /^#|^$/) {
chomp;
... (1 Reply)
from command prompt I did grep two words on a same line for eg: grep abc | grep xyz and I got tht particular line, but I want to know when I vi that file how to directly search for that particular line? I appreciate if any one can provide answer, thanks in advance (2 Replies)
I've done a quick Google about this, but could not find the answer I want.
Say, there is an array like this:
@A = qw(cd1 a1 ef a2 hij a12 b2 b4 b22);
I want to sort the array in the first order:
@sorted = qw(a1 a12 a2 b2 b22 b4 cd1 ef hij);
And second order:
@sorted = qw(a1 a2 a12 b2 b4... (5 Replies)
I am using sed to find a pattern in a line and then I want to retain the pattern + the rest of the line. How is this possible? ie:
line is: 14158 05-15-08 20:00 123-1234-A21/deliverable/dhm.a
search for 123-1234-A21 ie:
echo $line | sed 's/.*\(\{3\}-\{4\}-\{3\}\{5\}\).*/\1/'
... (1 Reply)
When I have a file like this:
0084AF aj-123-a NAME Ajay NAME Kumar Engineer
015ED6 ck-345-c
020B25 ef-456-e
027458 pq-890-p NAME Peter NAME Salob Doctor
0318F0 xy-123-x NAME Xavier Arul NAME Yesu Supervisor
0344CA de-456-d
where - The first NAME is followed by... (6 Replies)
Hi, sorry, two hash related questions in one day .. but this has got me a bit stuck.
I have a mysql database table that kind of looks like this, the table is called "view1" and a snippet of that table (SELECT'ing just rows with serial number 0629AN1200) is below
serial nic_name ... (2 Replies)
Hi guys
Quick question
Im creating an FTP server and im chrooting each user to there home directory blah blah. Ive also setup scponly so there locked etc.
Im a novice at unix and have just reaslised the primary group of scponly is the username of one of the ftp users... which im sure... (1 Reply)
Hi all,
I have a pattern matching problem in which i'm not sure how to attack.
Here is my problem:
I have a list of strings that appear in the following format:
String: LE_(1234 ABC)^2^ABC^DEFG
What i need to do is replace all the characters after the first ^ with blank. So the output... (2 Replies)
Discussion started by: WongSifu
2 Replies
LEARN ABOUT MOJAVE
datetime::locale::en
DateTime::Locale::en(3) User Contributed Perl Documentation DateTime::Locale::en(3)NAME
DateTime::Locale::en
SYNOPSIS
use DateTime;
my $dt = DateTime->now( locale => 'en' );
print $dt->month_name();
DESCRIPTION
This is the DateTime locale package for English.
DATA
This locale inherits from the DateTime::Locale::root locale.
It contains the following data.
Days
Wide (format)
Monday
Tuesday
Wednesday
Thursday
Friday
Saturday
Sunday
Abbreviated (format)
Mon
Tue
Wed
Thu
Fri
Sat
Sun
Narrow (format)
M
T
W
T
F
S
S
Wide (stand-alone)
Monday
Tuesday
Wednesday
Thursday
Friday
Saturday
Sunday
Abbreviated (stand-alone)
Mon
Tue
Wed
Thu
Fri
Sat
Sun
Narrow (stand-alone)
M
T
W
T
F
S
S
Months
Wide (format)
January
February
March
April
May
June
July
August
September
October
November
December
Abbreviated (format)
Jan
Feb
Mar
Apr
May
Jun
Jul
Aug
Sep
Oct
Nov
Dec
Narrow (format)
J
F
M
A
M
J
J
A
S
O
N
D
Wide (stand-alone)
January
February
March
April
May
June
July
August
September
October
November
December
Abbreviated (stand-alone)
Jan
Feb
Mar
Apr
May
Jun
Jul
Aug
Sep
Oct
Nov
Dec
Narrow (stand-alone)
J
F
M
A
M
J
J
A
S
O
N
D
Quarters
Wide (format)
1st quarter
2nd quarter
3rd quarter
4th quarter
Abbreviated (format)
Q1
Q2
Q3
Q4
Narrow (format)
1
2
3
4
Wide (stand-alone)
1st quarter
2nd quarter
3rd quarter
4th quarter
Abbreviated (stand-alone)
Q1
Q2
Q3
Q4
Narrow (stand-alone)
1
2
3
4
Eras
Wide
Before Christ
Anno Domini
Abbreviated
BC
AD
Narrow
B
A
Date Formats
Full
2008-02-05T18:30:30 = Tuesday, February 5, 2008
1995-12-22T09:05:02 = Friday, December 22, 1995
-0010-09-15T04:44:23 = Saturday, September 15, -10
Long
2008-02-05T18:30:30 = February 5, 2008
1995-12-22T09:05:02 = December 22, 1995
-0010-09-15T04:44:23 = September 15, -10
Medium
2008-02-05T18:30:30 = Feb 5, 2008
1995-12-22T09:05:02 = Dec 22, 1995
-0010-09-15T04:44:23 = Sep 15, -10
Short
2008-02-05T18:30:30 = 2/5/08
1995-12-22T09:05:02 = 12/22/95
-0010-09-15T04:44:23 = 9/15/-10
Default
2008-02-05T18:30:30 = Feb 5, 2008
1995-12-22T09:05:02 = Dec 22, 1995
-0010-09-15T04:44:23 = Sep 15, -10
Time Formats
Full
2008-02-05T18:30:30 = 6:30:30 PM UTC
1995-12-22T09:05:02 = 9:05:02 AM UTC
-0010-09-15T04:44:23 = 4:44:23 AM UTC
Long
2008-02-05T18:30:30 = 6:30:30 PM UTC
1995-12-22T09:05:02 = 9:05:02 AM UTC
-0010-09-15T04:44:23 = 4:44:23 AM UTC
Medium
2008-02-05T18:30:30 = 6:30:30 PM
1995-12-22T09:05:02 = 9:05:02 AM
-0010-09-15T04:44:23 = 4:44:23 AM
Short
2008-02-05T18:30:30 = 6:30 PM
1995-12-22T09:05:02 = 9:05 AM
-0010-09-15T04:44:23 = 4:44 AM
Default
2008-02-05T18:30:30 = 6:30:30 PM
1995-12-22T09:05:02 = 9:05:02 AM
-0010-09-15T04:44:23 = 4:44:23 AM
Datetime Formats
Full
2008-02-05T18:30:30 = Tuesday, February 5, 2008 6:30:30 PM UTC
1995-12-22T09:05:02 = Friday, December 22, 1995 9:05:02 AM UTC
-0010-09-15T04:44:23 = Saturday, September 15, -10 4:44:23 AM UTC
Long
2008-02-05T18:30:30 = February 5, 2008 6:30:30 PM UTC
1995-12-22T09:05:02 = December 22, 1995 9:05:02 AM UTC
-0010-09-15T04:44:23 = September 15, -10 4:44:23 AM UTC
Medium
2008-02-05T18:30:30 = Feb 5, 2008 6:30:30 PM
1995-12-22T09:05:02 = Dec 22, 1995 9:05:02 AM
-0010-09-15T04:44:23 = Sep 15, -10 4:44:23 AM
Short
2008-02-05T18:30:30 = 2/5/08 6:30 PM
1995-12-22T09:05:02 = 12/22/95 9:05 AM
-0010-09-15T04:44:23 = 9/15/-10 4:44 AM
Default
2008-02-05T18:30:30 = Feb 5, 2008 6:30:30 PM
1995-12-22T09:05:02 = Dec 22, 1995 9:05:02 AM
-0010-09-15T04:44:23 = Sep 15, -10 4:44:23 AM
Available Formats
d (d)
2008-02-05T18:30:30 = 5
1995-12-22T09:05:02 = 22
-0010-09-15T04:44:23 = 15
EEEd (d EEE)
2008-02-05T18:30:30 = 5 Tue
1995-12-22T09:05:02 = 22 Fri
-0010-09-15T04:44:23 = 15 Sat
Hm (H:mm)
2008-02-05T18:30:30 = 18:30
1995-12-22T09:05:02 = 9:05
-0010-09-15T04:44:23 = 4:44
hm (h:mm a)
2008-02-05T18:30:30 = 6:30 PM
1995-12-22T09:05:02 = 9:05 AM
-0010-09-15T04:44:23 = 4:44 AM
Hms (H:mm:ss)
2008-02-05T18:30:30 = 18:30:30
1995-12-22T09:05:02 = 9:05:02
-0010-09-15T04:44:23 = 4:44:23
hms (h:mm:ss a)
2008-02-05T18:30:30 = 6:30:30 PM
1995-12-22T09:05:02 = 9:05:02 AM
-0010-09-15T04:44:23 = 4:44:23 AM
M (L)
2008-02-05T18:30:30 = 2
1995-12-22T09:05:02 = 12
-0010-09-15T04:44:23 = 9
Md (M/d)
2008-02-05T18:30:30 = 2/5
1995-12-22T09:05:02 = 12/22
-0010-09-15T04:44:23 = 9/15
MEd (E, M/d)
2008-02-05T18:30:30 = Tue, 2/5
1995-12-22T09:05:02 = Fri, 12/22
-0010-09-15T04:44:23 = Sat, 9/15
MMM (LLL)
2008-02-05T18:30:30 = Feb
1995-12-22T09:05:02 = Dec
-0010-09-15T04:44:23 = Sep
MMMd (MMM d)
2008-02-05T18:30:30 = Feb 5
1995-12-22T09:05:02 = Dec 22
-0010-09-15T04:44:23 = Sep 15
MMMEd (E, MMM d)
2008-02-05T18:30:30 = Tue, Feb 5
1995-12-22T09:05:02 = Fri, Dec 22
-0010-09-15T04:44:23 = Sat, Sep 15
MMMMd (MMMM d)
2008-02-05T18:30:30 = February 5
1995-12-22T09:05:02 = December 22
-0010-09-15T04:44:23 = September 15
MMMMEd (E, MMMM d)
2008-02-05T18:30:30 = Tue, February 5
1995-12-22T09:05:02 = Fri, December 22
-0010-09-15T04:44:23 = Sat, September 15
ms (mm:ss)
2008-02-05T18:30:30 = 30:30
1995-12-22T09:05:02 = 05:02
-0010-09-15T04:44:23 = 44:23
y (y)
2008-02-05T18:30:30 = 2008
1995-12-22T09:05:02 = 1995
-0010-09-15T04:44:23 = -10
yM (M/yyyy)
2008-02-05T18:30:30 = 2/2008
1995-12-22T09:05:02 = 12/1995
-0010-09-15T04:44:23 = 9/-010
yMEd (EEE, M/d/yyyy)
2008-02-05T18:30:30 = Tue, 2/5/2008
1995-12-22T09:05:02 = Fri, 12/22/1995
-0010-09-15T04:44:23 = Sat, 9/15/-010
yMMM (MMM y)
2008-02-05T18:30:30 = Feb 2008
1995-12-22T09:05:02 = Dec 1995
-0010-09-15T04:44:23 = Sep -10
yMMMEd (EEE, MMM d, y)
2008-02-05T18:30:30 = Tue, Feb 5, 2008
1995-12-22T09:05:02 = Fri, Dec 22, 1995
-0010-09-15T04:44:23 = Sat, Sep 15, -10
yMMMM (MMMM y)
2008-02-05T18:30:30 = February 2008
1995-12-22T09:05:02 = December 1995
-0010-09-15T04:44:23 = September -10
yQ (Q yyyy)
2008-02-05T18:30:30 = 1 2008
1995-12-22T09:05:02 = 4 1995
-0010-09-15T04:44:23 = 3 -010
yQQQ (QQQ y)
2008-02-05T18:30:30 = Q1 2008
1995-12-22T09:05:02 = Q4 1995
-0010-09-15T04:44:23 = Q3 -10
Miscellaneous
Prefers 24 hour time?
No
Local first day of the week
Monday
SUPPORT
See DateTime::Locale.
AUTHOR
Dave Rolsky <autarch@urth.org>
COPYRIGHT
Copyright (c) 2008 David Rolsky. All rights reserved. This program is free software; you can redistribute it and/or modify it under the
same terms as Perl itself.
This module was generated from data provided by the CLDR project, see the LICENSE.cldr in this distribution for details on the CLDR data's
license.
perl v5.18.2 2017-10-06 DateTime::Locale::en(3)
06-12-2013
