晋太元中,武陵人捕鱼为业。缘溪行,忘路之远近。忽逢桃花林,夹岸数百步,中无杂树,芳草鲜美,落英缤纷。渔人甚异之,复前行,欲穷其林。 林尽水源,便得一山,山有小口,仿佛若有光。便舍船,从口入。初极狭,才通人。复行数十步,豁然开朗。土地平旷,屋舍俨然,有良田、美池、桑竹之属。阡陌交通,鸡犬相闻。其中往来种作,男女衣着,悉如外人。黄发垂髫,并怡然自乐。 见渔人,乃大惊,问所从来。具答之。便要还家,设酒杀鸡作食。村中闻有此人,咸来问讯。自云先世避秦时乱,率妻子邑人来此绝境,不复出焉,遂与外人间隔。问今是何世,乃不知有汉,无论魏晋。此人一一为具言所闻,皆叹惋。余人各复延至其家,皆出酒食。停数日,辞去。此中人语云:“不足为外人道也。”(间隔 一作:隔绝) 既出,得其船,便扶向路,处处志之。及郡下,诣太守,说如此。太守即遣人随其往,寻向所志,遂迷,不复得路。 南阳刘子骥,高尚士也,闻之,欣然规往。未果,寻病终。后遂无问津者。
|
Server : Apache System : Linux srv.rainic.com 4.18.0-553.47.1.el8_10.x86_64 #1 SMP Wed Apr 2 05:45:37 EDT 2025 x86_64 User : rainic ( 1014) PHP Version : 7.4.33 Disable Function : exec,passthru,shell_exec,system Directory : /proc/thread-self/root/usr/share/perl5/vendor_perl/Locale/Codes/ |
Upload File : |
package Locale::Codes::Constants;
# Copyright (C) 2001 Canon Research Centre Europe (CRE).
# Copyright (C) 2002-2009 Neil Bowers
# Copyright (c) 2010-2018 Sullivan Beck
# This program is free software; you can redistribute it and/or modify it
# under the same terms as Perl itself.
# This file was automatically generated. Any changes to this file will
# be lost the next time 'gen_mods' is run.
# Generated on: Wed May 30 10:22:15 EDT 2018
use strict;
use warnings;
require 5.006;
use Exporter qw(import);
our($VERSION,@EXPORT);
$VERSION = '3.57';
################################################################################
our(@CONSTANTS,%ALL_CODESETS);
our(@CONSTANTS_COUNTRY) = qw(
LOCALE_CODE_ALPHA_2
LOCALE_CODE_ALPHA_3
LOCALE_CODE_DOM
LOCALE_CODE_GENC_ALPHA_2
LOCALE_CODE_GENC_ALPHA_3
LOCALE_CODE_GENC_NUMERIC
LOCALE_CODE_NUMERIC
LOCALE_CODE_UN_ALPHA_3
LOCALE_CODE_UN_NUMERIC
LOCALE_COUNTRY_ALPHA_2
LOCALE_COUNTRY_ALPHA_3
LOCALE_COUNTRY_DOM
LOCALE_COUNTRY_GENC_ALPHA_2
LOCALE_COUNTRY_GENC_ALPHA_3
LOCALE_COUNTRY_GENC_NUMERIC
LOCALE_COUNTRY_NUMERIC
LOCALE_COUNTRY_UN_ALPHA_3
LOCALE_COUNTRY_UN_NUMERIC
);
push(@CONSTANTS,@CONSTANTS_COUNTRY);
our(@CONSTANTS_CURRENCY) = qw(
LOCALE_CURRENCY_ALPHA
LOCALE_CURRENCY_NUMERIC
LOCALE_CURR_ALPHA
LOCALE_CURR_NUMERIC
);
push(@CONSTANTS,@CONSTANTS_CURRENCY);
our(@CONSTANTS_LANGEXT) = qw(
LOCALE_LANGEXT_ALPHA
);
push(@CONSTANTS,@CONSTANTS_LANGEXT);
our(@CONSTANTS_LANGFAM) = qw(
LOCALE_LANGFAM_ALPHA
);
push(@CONSTANTS,@CONSTANTS_LANGFAM);
our(@CONSTANTS_LANGUAGE) = qw(
LOCALE_LANGUAGE_ALPHA_2
LOCALE_LANGUAGE_ALPHA_3
LOCALE_LANGUAGE_TERM
LOCALE_LANG_ALPHA_2
LOCALE_LANG_ALPHA_3
LOCALE_LANG_TERM
);
push(@CONSTANTS,@CONSTANTS_LANGUAGE);
our(@CONSTANTS_LANGVAR) = qw(
LOCALE_LANGVAR_ALPHA
);
push(@CONSTANTS,@CONSTANTS_LANGVAR);
our(@CONSTANTS_SCRIPT) = qw(
LOCALE_SCRIPT_ALPHA
LOCALE_SCRIPT_NUMERIC
);
push(@CONSTANTS,@CONSTANTS_SCRIPT);
@EXPORT = (@CONSTANTS,
qw(
%ALL_CODESETS
));
use constant LOCALE_CODE_ALPHA_2 => 'alpha-2';
use constant LOCALE_CODE_ALPHA_3 => 'alpha-3';
use constant LOCALE_CODE_DOM => 'dom';
use constant LOCALE_CODE_GENC_ALPHA_2 => 'genc-alpha-2';
use constant LOCALE_CODE_GENC_ALPHA_3 => 'genc-alpha-3';
use constant LOCALE_CODE_GENC_NUMERIC => 'genc-numeric';
use constant LOCALE_CODE_NUMERIC => 'numeric';
use constant LOCALE_CODE_UN_ALPHA_3 => 'un-alpha-3';
use constant LOCALE_CODE_UN_NUMERIC => 'un-numeric';
use constant LOCALE_COUNTRY_ALPHA_2 => 'alpha-2';
use constant LOCALE_COUNTRY_ALPHA_3 => 'alpha-3';
use constant LOCALE_COUNTRY_DOM => 'dom';
use constant LOCALE_COUNTRY_GENC_ALPHA_2 => 'genc-alpha-2';
use constant LOCALE_COUNTRY_GENC_ALPHA_3 => 'genc-alpha-3';
use constant LOCALE_COUNTRY_GENC_NUMERIC => 'genc-numeric';
use constant LOCALE_COUNTRY_NUMERIC => 'numeric';
use constant LOCALE_COUNTRY_UN_ALPHA_3 => 'un-alpha-3';
use constant LOCALE_COUNTRY_UN_NUMERIC => 'un-numeric';
$ALL_CODESETS{'country'} =
{
'default' => 'alpha-2',
'module' => 'Country',
'codesets' => {
'alpha-2' => ['lc'],
'alpha-3' => ['lc'],
'dom' => ['lc'],
'genc-alpha-2' => ['uc'],
'genc-alpha-3' => ['uc'],
'genc-numeric' => ['numeric',3],
'numeric' => ['numeric',3],
'un-alpha-3' => ['uc'],
'un-numeric' => ['numeric',3],
}
};
use constant LOCALE_CURRENCY_ALPHA => 'alpha';
use constant LOCALE_CURRENCY_NUMERIC => 'num';
use constant LOCALE_CURR_ALPHA => 'alpha';
use constant LOCALE_CURR_NUMERIC => 'num';
$ALL_CODESETS{'currency'} =
{
'default' => 'alpha',
'module' => 'Currency',
'codesets' => {
'alpha' => ['uc'],
'num' => ['numeric',3],
}
};
use constant LOCALE_LANGEXT_ALPHA => 'alpha';
$ALL_CODESETS{'langext'} =
{
'default' => 'alpha',
'module' => 'LangExt',
'codesets' => {
'alpha' => ['lc'],
}
};
use constant LOCALE_LANGFAM_ALPHA => 'alpha';
$ALL_CODESETS{'langfam'} =
{
'default' => 'alpha',
'module' => 'LangFam',
'codesets' => {
'alpha' => ['lc'],
}
};
use constant LOCALE_LANGUAGE_ALPHA_2 => 'alpha-2';
use constant LOCALE_LANGUAGE_ALPHA_3 => 'alpha-3';
use constant LOCALE_LANGUAGE_TERM => 'term';
use constant LOCALE_LANG_ALPHA_2 => 'alpha-2';
use constant LOCALE_LANG_ALPHA_3 => 'alpha-3';
use constant LOCALE_LANG_TERM => 'term';
$ALL_CODESETS{'language'} =
{
'default' => 'alpha-2',
'module' => 'Language',
'codesets' => {
'alpha-2' => ['lc'],
'alpha-3' => ['lc'],
'term' => ['lc'],
}
};
use constant LOCALE_LANGVAR_ALPHA => 'alpha';
$ALL_CODESETS{'langvar'} =
{
'default' => 'alpha',
'module' => 'LangVar',
'codesets' => {
'alpha' => ['lc'],
}
};
use constant LOCALE_SCRIPT_ALPHA => 'alpha';
use constant LOCALE_SCRIPT_NUMERIC => 'num';
$ALL_CODESETS{'script'} =
{
'default' => 'alpha',
'module' => 'Script',
'codesets' => {
'alpha' => ['ucfirst'],
'num' => ['numeric',3],
}
};
1;